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® PRODUCT CODE: AC -81500 -MC 

10 PRODUCT TITLE: CVOVADO OLV11-E OFFLINE TEST 

1 

12 PRODUCT DATE: AUGUST 1964 
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6 AUTHOR ; ODES CHOATE 
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4 MAINTAINER: OIAGMOSTIC ENGINEERING GROUP 

16 THE INFORMATION IN THIS DOCUMENT IS WY. TO CHANGE WITHOUT 
19 NOTICE AD SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITA 
20 EQUIPMENT CORPORATION. DOIGITAL EQUIPMENT CORPORATION ASSUMES NO 
4 RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS 

23 MO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF 
e4 SOFTWARE ON EQUIPTENT THAT IS NOT SUPPLIED GY DIGIT OR ITS 
- AFFILIATED COMPANIES. 
4 COPYRIGHT (C) 1977,1964 BY DIGITAL EQUIPMENT CORPORATION 
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GENERAL PROGRAM INFORMATION. 


eee errr eee 


PROGRAM PURPOSE (ABSTRACT). 


THIS DIAGNOSTIC IS A LOGIC TEST TO VERIFY THE OPERATION OF THE 
OLV11-E SERIA LINE INTERFACE. THE PROGRAM AS SET INITIALLY 
DEFAATS TO ALL OPTIONS, EXCEPT PROGRAPIABLE BAUD RATE, 
ENABLED AND A WRAP CABLE CONNECTED. THE USER CAN SELECTIVELY 
ENABLE AND ea ala OF THE OPTIONS BY ALTERING THE 
CONTENTS OF THE OIAGNOSTIC IS DESIGNED TO TEST AND 
DETECT FAALTS 10 Te LOGIC LEVEL (NOT TC THE CHIP LEVEL). 
THIS TEST OPERATES ON WP TO SIXTEEN( 16) IDENTICALLY CONFIGURED 
OLV11-E SERIAL LINE INTERFACES. THE DEFAULT ADORESSES ARE: 


175610 -FIRST SERIAL LINE ADORESS OF 16 CONSECUTIVE 
SERIAL LINE DEVICES. 
300 - VECTOR FOR FIRST OF 16 DEVICES. 

THIS PROGRAM IS DESIGNED TO RUN ON ANY PDP-11 WITH 4K OF 
MEMORY AND A OLV11-E (LSI-BUS) MODULE. IT CAN RUN UNDER XXDP, 
APT, AND ACT MONITORS, AND ON PROCESSORS WITH NO HARDWARE 
SWITCH REGISTER. A POWER FAILURE WILL CAUSE THE DIAG- 
NOSTIC TO RESTART. 
SYSTEM REQUIREMENTS. 

HARDWARE REQUIREMENTS: 

~y POP - as FAMILY PROCESSOR 

MINIMUM 

4315 - CABLE TURN AROUND PLUG (OR ES.'IVALENT) 

MODEM CABLE - BCO1V-xX OR BCOSC-x 

SOFTWARE REQUIREMENTS: 

THIS DIAGNOSTIC IS DESIGNED TO RUN IN ANY OF THE 
FOLLOWING WAYS; 

STAND ALONE 

WITH APT MONITOR 

WITH ACT MONITOR 

WITH XXDP MONITOR (CHAINABLE ) 
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RELATED DOCUMENTS AND STANDARDS. 
DIAGNOSTIC ENGINEERING STANDARDS AND CONVENTIONS 175 -003-009-02 
APT MO-11-OZZMA 
ACT AUTOCAT -11-Q@ZAUB 
SYSMAC MD-11-OZQAC 


DIAGNOSTIC HIERARCHY PREREQUISITES. 
NO SPECIAL DIAGNOSTICS ARE REQUIRED TO RUN BEFORE THIS, BUT 
~——_,, MEMORY, AND BUS ARE ASSUMMED TO BE FULLY 


ASSUMPTIONS. 


THIS DIAGNOSTIC ASSUMES THAT THE OPERATOR HAS INITIALIZED 
LOCATION ‘$USWR’ AND ‘S$DEVM’ TO THE PROPER VALUES. 
THE (H) JUMPER MUST BE REMOVED FROM ALL DLV11-E'S UNDER TEST. 


OPERATING INSTRUCTIONS. 


LOADING AND STARTING PROCEDURES. 

tata PROCEDURE FOR PDP-11 ABSOLUTE BINARY FORMATTED 
THIS DIAGNOSTIC HAS ONLY ONE (1) STARTING ADDRESS. 200 FOR 
START AND RESTART. 

THE USER CAN SELECT A SPECIFIC TEST TO BE EXECUTED BY SETTING 
SWITCH 6 IN THE SWITCH REGISTER AND THE TEST NUMBER (IN OCTAL) 
IN THE LOWER BYTE. (NOTE: ALL TESTS PREVIOUS TO THE SELECTED 
ONE ARE EXECUTED WITHOUT ITERATIONS. ) 

SPECIAL ENVIRONMENTS. 

‘oan DIAGNOSTIC FOLLOWS THE STANDARD PROCEDURE FOR RUNNING 


APT,ACT,XXDP MONITORS, AS DESCRIBED IN THEIR RESPECTIVE 
PROCEDURES MANUAL AND SYSMAC PACKAGE. 


i i 
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164 2.3 OPERATIONAL SWITCH SETTINGS 
165 
166 IF THE DIAGNOSTIC IS RUN ON A CPU WITHOUT A SWITCH 
167 REGISTER THEN A SOFTWARE SWITCH REGISTER IS USED WHICH 
168 ALLOWS THE USER THE SAME SWITCH OPTIONS AS THE 
169 HARDWARE SWITCH REGISTER. IF THE WHAROWARE SWITCH 
170 REGISTER DOES NOT EXIST OR IF ONE DOES AND IT CONTAINS 
171 ALL ONES (177777) THEN THE SOFTWARE SWITCH REGISTER 
172 (LOC. 176) IS USED. 
173 
174 
175 CONTROL : 
176 
177 THIS PROGRAM ALSO SUPPORTS THE DYNAMIC LOADING OF THE SOFTWARE 
178 SWITCH REGISTER (LOC. 176) FROM THE TTY. THIS CAN BE 
179 ACCOMPLISHED BY DOING THE FOLLOWING: 
180 
161 1) TYPE CONTROL G <?*G>; THIS WILL ALLOW THE TTY TO ENTER 
182 DATA INTO LOC. 176 AT SELECTED POINTS WITHIN THE 
= PROGRAM . 
1 
185 2) THE MACHINE WILL THEN TYPE: SWR@XXXXXX NEWe’ (XXXXXX IS 
186 THE OCTAL CONTENTS OF THE SOFTWARE SWITCH REGISTER. ) 
188 3) AFTER THE ‘NEW’ HAS BEEN TYPED THEN THE OPERATOR CAN 0O 
+4 ONE OF THE FOLLOWING AT THE TTY: 
1 
191 A) TYPE A NUMBER TO BE LOADED INTO LOC. 176 FQLOMED BY 
192 A <CR>. (ONLY NUMBERS BETWEEN 0-7 WILL BE ACCEPTED). 
193 LEADING ZEROS NEED NOT BE TYPED, AND IF MORE THAN 
194 DIGITS ARE TYPED THE LAST 6 WILL BE USED. IF A “che 
195 IS THE FIRST KEY DEPRESSED THE SOFTWARE SWITCH 
ise REGISTER CONTENTS WILL NOT BE CHANGED. 
198 6) IF A CONTROL U <tU> IS DEPRESSED THEN THE PROGRAM WILL 
199 SEND YOU BACK TO STEP 3. 
201 C) IF THE INPUT CHARACTER IS NOT ONE OF THE CHARACTERS 
202 MENTIONED ABOVE THEN A QUESTION MARK (7?) WILL BE TYPED 
203 FOLLOWED BY A CARRAGE RETURN AND A LINE FEED 
a4 THEN PROCEED FROM STEP 3 (ERASING ALL PREVIOUS INPUT.) 
aoe DYNAMIC SWITCH REGISTER 
208 
209 BIT 15 - HALT ON ERROR 
210 14 - LOOP ON TEST 
211 13 - INHIBIT ERROR TYPEOUTS 
212 12 - (UNUSED) 
213 11 - INHIBIT ITERATIONS 
214 10 - BELL ON ERROR 
215 9 - LOOP ON ERROR 
216 6 - LOOP ON TEST IN SWR<7:0> 
217 7:0 - TEST NUMBER TO LOOP ON (USED WITH BIT 8) 
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218 2.4 PROGRAM OPTIONS. 
219 
520 THIS PROGRAM WILL SUPPORT TESTING OF MULTIPLE OLVI1-€'S. IT 
221 REQUIRES THE ADORESS OF THE FIRST RCSR (STORED AT '$BASE’) AND 
222 ITS INTERRUPT VECTOR (STORED AT ‘S$VECT1'); AND WILL BE ABLE 
553 TO ADORESS ANY DLV11-€ STARTING AT THE SPECIFIED BASE ADORESS 
228 UP TO 16 CONSECUTIVE DEVICES. 
525 EXAMPLES: $BASE: 175610 
226 $VECTi: 300 
228 THE PROGRAM WILL BE ABLE TO TEST ANY OLVI1-E WITHIN THE 
229 ADORESS RANGE 175610 --> 176000 
231 $BASE AND $VECT1 DEFAULT TO 175610 AND 200 RESPECTIVELY. 
232 THE PROGRAM ASSOCIATES UNIT NUMBERS AS FOLLOWS: (NUMBERS IN 
233 PARENTHESIS ARE OCTAL) 
234 UNIT@O -- BASE ADDRESS STORED AT ‘ $BASE’ 
235 ASSOCIATED BASE VECTOR STORED AT ‘ $VECTI' 
236 UNIT@1 -- BASE ADORESS + (10) 
237 BASE VECTOR + (10) 
238 : 
239 ! ww To 
240 ! 
241 UNIT@1S -- BASE ADORESS + (170) 
242 BASE VECTOR + (170) 
244 LOCATION » sDEVH" IS USED AS A BIT MAP TO INDICATE WHICH UNIT 
245 NUMBERS ARE PRESENT AND WILL BE TESTED. 
247 BIT 15 BIT 1 = BIT O 
M6 «== = = = = = = = = = eee e ten ermeermmoeereroorcoorecsesoceses 
249 UNIT! ‘UNIT { UNIT! 
250 :15! ! 1 eo ! 
sa 06—6C—<—i—i—‘“<‘ *'*C nn CCE RENEE TCR RNE ERE CRNK 
252 
253 A BIT MAP CAN BE ENTERED AT ‘SDEVM’ PRIOR TO STARTING THE 
254 PROGRAM. 
255 
256 EXAMPLE ; 
257 $BASE: 175610 
258 $VECTOR: 300 
259 $DEVM: 13 
260 
261 THE PROGRAM WILL TEST- 
263 UNIT@O 175610 300 
264 UNIT@1 175620 310 
265 UNIT@3 175640 330 
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THIS DIAGNOSTIC DOES NOT TEST THE PARITY LOGIC. 
WHEN THE Ae yg BAUD RATE OPTION IS 


SELECTED VALUE. TO CHANGE THE DEFAULT 
VALUE OF 110 BAUD REPLACE BITS <11:8> 
WITH THE OFFSET fon teste IN THE TABLE 
AT THE END OF THE PBR TEST 


OLV11-E INDIVIDUAL TEST REQUIREMENTS 


TESTS NOT EXECUTED IF BI 
APT TEST (BIT 1 OF SENV) 123. 137 
PROGAMMABLE BAUD RATE (BIT 7 OF SUSUR) 
BREAK GENERATION CIRCUIT (BIT 12 OF sUSWR) 12 T40 
CABLE TERMINATED (BIT 13 OF $USWR) 115,716, 117,720, 721 
122, T23,PARTS OF 134, 


(-FR) € (-FO) JUMPERS IN (BIT 14 OF $USWR) Fog Oe FOREST, COS, SER, 


ALL OTHER TESTS WILL RUN REGARDLESS OF ANY BIT SETTINGS. 


SEQ 7 
MACY11 3OA(1052) 12-JU-864 09:52 PAGE 9 
05:04 

OPTIONS 
LOCATION $USWR CONTAINS ALL THE USER SELECTABLE OPTIONS. THE 
VALUES IN THIS WORD MUST CONFORM TO THE ACTUAL BOARD 
CONFIGURATION. 
THE DEFAULT VALUE OF $USWR IS AS FOLLOWS: 
BIT POSITION DEF INITION DEFAULT VALUE 

0-3 @OF DATA BITS 10°86) = 8 

4 PARITY ENABLED te) * NO 

5 EVEN O00 PARITY 0 = 000 

6 COMMON SPEED 1 * YES 

7 PROGRAMMABLE BAUD RATE i+) = NO 

6-11 BAUD RATE OFFSET 05(8) = 110 BAUD 

(SEE FOLLOWING NOTE) 

12 BREAK GENERATION ENABLED 1 = YES 

13 CABLE TERMINATED (H315) 1 * YES 

14 (-FR) AND (-FD) JUMPERS IN 1 * YES 

15 (NOT DEFINED) 

NOTE 


Ts 


1 


1 
0 
1 
1 
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EXECUTION TIMES. 


EXECUTION TIMES ARE FOR AN LSI-11 PROCESSOR WITH ALL OPTIONS 
eke 0 ~ THE OLV11-E (CEXECPT FOR PROGRAMMABLE BAUD RATE), AT 


FIRST PASS- 90 SECONDS 
ADDITIONAL PASSES 95 SECONDS 
ADDITIONAL DEVICES 95 SECONDS 


THE TEST TIME IS ne RATE DEPENDANT; HIGHER BAUD GIVES 
SHORTER PASS TIMES 
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ERROR INFORMATION. 


SINCE THIS DIAGNOSTIC WAS DESIGNED TO FIT IN 4-K OF MEMORY THE 
oo ha Mee 44 IS VERY BRIEF. THE FORMAT OF THE ERROR TYPEOUT 


WESTO...2. sERROR@_____ PO cnine » ADORESS= 


WHERE ALL VALUES TYPED ARE OCTAL. 

THE ADDRESS AND VECTOR REFER TO THE FAILING DLV11-€E. 

FOR FURTHER INFORMATION THE LISTING MUST BE CONSULTED. 

BITS 15,13,10 AND 9 OF THE SWITCH REGISTER CONTROL THE 
SEQUENCE OF EVENTS AFTER AN ERROR IS CAUGHT. 


BIT 15 - CAUSES THE PROGRAM TO HALT IN THE ERROR 
ROUTINE. CONTINUEING THE PROGRAM CAUSES IT TO 
PROCEED. 

BIT 13 - DISABLES THE PRINTING OF THE ERROR MESSAGE. 

BIT 10 - CAUSES THE BELL TO RING ON ERROR. 


BIT 9 - CAUSES THE DIAGNOSTIC TO LOOP FROM BEGINNING 
OF TEST TO ERROR. 


THE ERROR ROUTINE SUPPORTS THE CONTROL G FUNCTION. 


THE ONLY HALT IN THIS DIAGNOSTIC IS IN THE ERROR ROUTINE, AND 
IS EXECUTED ONLY IF BIT 15 OF THE SWITCH REGISTER IS A ONE 
WHEN AN ERROR OCCURS. 


PERFORMANCE AND PROGRESS REPORTS. 


PERFORMANCE REPORTS. 


AS EACH DEVICE COMPLETES ONE PASS OF THE DIAGNOSTIC THE 
FOLLOWING WILL BE TYPED: 
CSR; _____. VECTOR: _____ »ERRORS: 





K1 


SE 
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386 WHERE.'CSR:_____' IS THE DEVICE CSR UNDER TEST 

387 ‘VECTOR: __' IS THE ASSOCIATED VECTOR 

388 AND ‘ERRORS:__' IS THE TOTAL NUMBER OF ERRORS ON THIS DEVICE 
389 ON THIS PASS. 

390 

391 

392 NOTE 

393 THIS IS TYPED AFTER THE DEVICE HAS COMPLETED ITS PASS. 

395 = ALL DEVICES HAVE BEEN EXERCISED AN END PASS STATEMENT IS 
397 "  ™ENDPASS@_____. " 
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5.0 DEVICE INFORMATION TABLES. 


ee eB BE ek A SE Be, es ee Set 
SHSASSHSSSSSSSSHSSSEASSSSSSSESSSSSSHSEESSSSSSSESESSSSSSHSSSSESESESSEESESSSEESEEESEEEE 
RCSR!IDATA!RING!CLR !CAR !RCVRIREC | ! !RCVRIRCVRIDATA! SEC !REQ '0TR!~ =! 
HINT |  !SENDIDET !ACT !REC ! |! !OOME!IE '$IE ! !XMIT!SENMD! | 
PPOUTTTT TTT TT TTT TITS TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT 
RBUFIERRO!OR !FR $P $ $$ $$ $s RECEIVED DATA BUFFER ; 
R ERR HERR HERR! $$ $+ ¢ $F ‘ 
PPPUTTTTTTITTTI TTT TTT TTI TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT TTT TT TTT TTT TTT TTT Te 
TCSR! PROGRAMMABLE BAUD !PBR ! ! |! ‘'!XMITIXMIT! ¢ | ¢!MAIN! ‘BREA! 
! RATE SELECT ‘€NAB! ! $+ %$¢ROY HIE $$ ¢$ #& fF $ Mw $ 
on. hk Ss. hk. £2. aetnn hon nae o 
east Coe Mall Se Peek Se ee Pee oe TRANSMITTER DATA BUFFER ; 
| f ] : : $ : ! M1 

PPT eT TTT TTT TTT TTT TTT TTTTTITTTTTTTTTT TT TTT TTT TTTT TTT TTT TT TT TTT TTT TTT TT TTT TTT TTT 


NOTE 


BLANK BOXES INDICATE UNUSED AND RESERVED 
BIT POSITIONS. SEE THE LISTING FOR AN 
EXPLANATION OF THE BITS. 


_ MAINDEC -2Z-CVDVA-0 
| CVOVAD.F11 - 
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6.0 SUMMARY OF TESTS AND SPECIAL SUBROUTINES. 


THIS TEST yw aay THAT THE ADORESS AS PLACED IN THE 
HAROWARE P-TABLE TO BE CORRECT AND THE OLV11-E 
RESPONDS TO THAT ADDRESS SPACE. 


THE FOLLOWING 8 TESTS TEST ALL ‘READ WRITE’ BITS 


TEST e BREAK - TCSRO SET, CLEAR, RESET 


-<<-< 


NOTE 


RESET DOES NOT CLEAR THIS BIT. WE CANNOT TEST 
FOR AN INITIAL CONDITION AS THIS BIT IS 
pon ge UPON POWER UP AND INIT DOESN'T 


TEST 6 REQSEND - RCSR2 SET, CLEAR, RESET 


THIS TEST ASSUMES THAT JUMPER FR IS IN. 


SEQ 12 
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SEQ 13 
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THE vane nats, 4 TESTS VERIFY THAT RESET CINIT) INITIALIZES 
READ ONLY BITS 


TEST 12 RCVRDONE - RCSR 7 - IS CLEARED BY INIT 


TEST 13 XMITROY - TCSR 7 - IS SET BY INIT 


-“-*-- «-«#« 


THE FOLLOWING 4 TESTS VERIFY THAT THE EIA SIGNALS CAN BE 
TRANSMITTED AND RECEIVED THROUGH THE CABLE. 


TEST 16 CARDET SETS AND CLEARS AS DTR SETS AND CLEARS 


DATAINT IS CLEARED AFTER READING RCSR 


NOTE 
ee TIED TO BOTH CARDET AND CLRSEND BY THE 


ee ee -_- = ——— --- -_—— =. — 


Ce 
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531 

582 TEST 23 DATAINT SETS WHEN RING SETS AND THAT DATAINT 

$34 DOES NOT SET WHEN RING CLEARS 

536 

537 TEST 24 DATAINT SETS WHEN SECREC CHANGES STAT: 
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TEST 25 XMIT ROY - TCSR 7 - CLEARS WHEN TBUF IS LOADED 
WITH A CHARACTER — THAT IT SETS WITHIN A 
REASONABLE AMOUNT OF TIME. 


TEST 26 OUTPUTTING A CHAR FROM TBUF (WITH MAINT SET) 
RESULTS IN RCVROONE SETTING WITHIN A 
REASONABLE AMOUNT OF TIME AND THAT RESET 

CLEARS THE BIT. 


TEST 27 RCVRDONE IS CLEARED BY READING RBUF 


~ 3: ne AND CLEARS WHEN RCVRDONE - RCSR 7 - 


TEST 31 OVERRUN BIT - RBUF 14 


AVAILABLE A COMPARISON WILL BE MADE TO SEE IF 
NEW TIME IS LESS THAN PREVIOUS. 


TEST 33 TRANSMITTER INTERRUPT LOGIC TEST 
LOGICALLLY THIS IS 4 SEPARATE TESTS 
A) DOES TRANSMITTER INTERRUPT LOGIC WORK 
8) AT PRIORITY OF O 
C) AND ONLY ONCE 
0) BUT NOT WITH INTERRUPT ENABLE CLEAR 


SEQ 16 


TEST 34 RECEIVER INTERRUPT LOGIC TEST THIS TEST COVERS ALL 
THE RECEIVER SIDE OF THE INTERRUPT LOGIC, BOTH 
MODES . 


OF 
DATASET AND CHARACTER 


TEST 35 TEST ACTUAL DATA TRANSFERED NON- INTERRUPT 


“MAINTENANCE BIT SET 
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TEST 36 


INPUTS: 


OUTPUT: 


Zi Bt Ea era i Agate! ie Saco shel aera 


S2 PAGE 19 


SEQ 17 


TEST DATA THROUGH CABLE 


FULL DATA TRANSFER WITH INTERRUPTS AND MAINTENANCE 
MODE . 


TEST BREAK GENERATION LOGIC TRANSMIT KNOWN CHAR 
WITH BREAK SET AND COMPARE RECEIVED WITH O. 


NOT A TEST - SEND BACK TO LOOP 


NOTE 


FOR ALL OF THE FOLLOWING ROUTINES THE USE 
OF (RS) IS PART OF THE LINKAGE MECHANISM 
BETWEEN THE CALLER AND THE CALLED. 


THIS ROUTINE IS USED TO TEST THE STATUS OF 
ANY BIT IN ANY REGISTER. 


HOWL ONG THE MAXIMUM AMOUNT OF TIME TO 
SPEND IN THIS ROUTINE. 

WHICHBIT A MASK WITH THE BIT(S) SET THAT 
ARE TO BE CHECKE 

REG A POINTER TO THE REGISTER TO BE 


CHECKED 
SFTCLR THE DESIRED RESULTS -- EITHER SET 
OR CLEAR 


THE ‘C‘ BIT IS SET TO INDICATE AN ERROR BUT IT 
IS TESTED BY THE IF .ERROR STATEMENT. 
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ROUTINE : DATLNG 


THIS ROUTINE SETS UP A MASK FOR DATA, WITH - 


INPUT: NOTHING IS PASSED TO THIS ROUT _ BUT GLOBAL 
INFORMATION IS ASSUMED TO EXIST 
USWR-- THE WORD FOR SOF TWARE PARAMETERS 
DATA-- A MASK FOR THE LOCATION OF THE OCTAL 
NUMBER OF DATA BITS 


OUTPUT - --- 
MASK-- A MASK OF BINARY ZEROS RIGHT-JUSTIFIED 
THE NUMBER OF WHICH IS DEFINED IN SUSWR WORD. 


ROUTINE : WAIT 
THIS ROUTINE IS USED TO DELAY EXECUTION OF THE 
MAIN PROGRAM FOR A SPECIFIED AMOUNT OF TIME. 
THIS IS ACCOMPLISHED 8Y INCREMENTING A 
REGISTER UP TO ACIMIT. THE INNER LOOP IS SET 
TO APPROXIMATE 1 MILLI SEC. 


SERVICE ROUTINE: INTSRV 


THIS GLOBAL ROUTINE DOES NOTHING BUT INCREMENT 


‘INTFLAG’ EACH TIME IT IS CALLED. IT ASSUMES 
THAT THE MAIN CALLING ROUTINE WILL KNOW WHAT 
TO LOOK FOR. 


ROUTINE :CYCLE 
THIS ROUTINE CAUSES ADRS TO POINT TO THE 
ADORESS OF OLV11-E UNDER TEST, ADRS +2 TO 
POINT TO THE VECTOR OF THE DLV11-E UNDER TEST. 
ate TRACK OF THE CURRENT DEVICE AND BIT 


a a ee eee — 7. 


SEQ 18 





SS SS — 





SEQ 19 
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678 a 
679 -TITLE MAINDEC-2ZZ-CVDVA-D 
680 s@COPYRIGHT (C) 1977 
661 s@DIGITAL EQUIPMENT CORP. 
682 ;@MAYNARD, MASS. 01754 
683 3% 
684 Rina BY ODES CHOATE 
685 
686 tO THIS PROGRAM WAS ASSEMBLED USING THE P™P-11 MAINDEC SYSMAC 
687 abyss ey (MAINDEC-11-O0ZQAC-C3), JAN 19, 1977. 
688 
689 SBTTL OPERATIONAL SWITCH SETTINGS 
690 3¢ 
691 34 SWITCH USE 
692 dl 
693 3¢ 15 HALT ON ERROR 
694 36 14 LOOP ON TEST 
695 +6 13 INHIBIT ERROR TYPE 
696 34 11 INHIBIT ITERATIONS 
697 i¢ 10 BELL ON ERRGR 
698 36 9 LOOP ON ERROR 
44 ;@ 8 LOOP ON TEST IN SWR<7:0> 
sn -SBTTL BASIC DEFINITIONS 
703 s@INITIAL ADORESS OF THE STACK POINTER eee 1100 eee 
Poe 001100 STACK= 1100 
705 -EQUIV EMT,ERROR :sBASIC DEFINITION OF ERROR CALL 
La -EQUIV IOT,.SCOPE : BASIC DEFINITION OF SCOPE CALL 
708 —— DEF INI TIONS 
709 000011 HT= 33:CODE FOR wegty TAB 
710 000012 LF= 1 3sCODE FOR LINE FEED 
711 000015 CR= 15 3:CODE FOR CARRIAGE RETURN 
712 000200 CRLF= 200 +sCODE FOR CARRIAGE RETURN-LINE FEED 
713 177776 PS= 177776 ssPROCESSOR STATUS WORD 
714 -EQUIV PS,PSW 
715 177774 STKLMT= 177774 +sSTACK LIMIT REGISTER 
716 177772 PIRQ= 177772 3sPROGRAM INTERRUPT REQUEST REGISTER 
717 177570 OSWR= 177570 s sHAROWARE SWITCH REGISTER 
7 177570 DOISP= 177570 s sHARDWARE DISPLAY REGISTER 
720 s@GENERAL PURPOSE REGISTER DEFINITIONS 
721 000000 RO= a0 3 :GENERAL REGISTER 
722 000001 Ris ey 1 GENERAL REGISTER 
723 000002 R2= we 3 sGENERAL REGISTER 
724 000003 R3= 63 + :;GENERAL REGISTER 
725 000004 R4= 4 + sGENERAL REGISTER 
726 000005 R5= 65S + :;GENERAL REGISTER 
727 000006 R6= BE 3 :;GENERAL REGISTER 
728 000007 R7= 67 3 :;GENERAL REGISTER 
729 000006 SP= eS s3STACK POINTER 
hag 000007 PC= 67 + sPROGRAM COUNTER 
732 Aenea LEVEL DEFINITIONS 


733 000000 PRO= ssPRIORITY LEVEL O 





ee 
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BASIC DEFINITIONS 

PRi«= 40 ;sPRIORITY LEVEL 1 
PR2= 100 s;PRIORITY LEVEL 2 
PR3=2 140 ss;PRIORITY LEVEL 3 
PR4as 200 s;PRIORITY LEVEL 4 
PRS5= 240 ssPRIORITY LEVEL 5 
PRE= 300 ssPRIORITY LEVEL 6 
PR7= 340 ssPRIORITY LEVEL 7 
:@”"SWITCH REGISTER” SWITCH DEFINITIONS 
SWi5= 100000 

SwWi4= 40000 

SW13= 20000 

SWi2= 10000 

SWil= 4000 

SW10= 2000 

SWO9= 1000 

Swosé= 400 

SWO7= 200 

SWO06 = 100 

SwosS= 40 

SWO4 = 20 

SwWO3= 10 

SWO2= 4 

Swole 2 

SwO00= 1 

-EQUIV SWO9,SW9 

-EQUIV SWO6,SWS 

-EQUIV SWO7,SW7 

-EQUIV SWO6,SW6 

-EQUIV SWOS,SWS5 

-EQUIV SWO4,SW4 

-EQUIV SWO3,SW3 

-EQUIV SWO2,SW2 

-EQUIV SWO1,SW1 

-EQUIV SWOO,SWO 

s@DATA BIT DEFINITIONS (BITOO TO BIT15) 
BIT15= 100000 

BIT14= 40000 

BIT13= 20000 

BITi2= 10000 

BITii= 4000 

BIT10= 2000 

BITO9= 1000 

BITOB= 400 

BITO7= 200 

BITO6= 100 

BITOS= 40 

BITO4= 20 

BITO3= 10 

BITO2= 4 

BITOls 2 

BITOO- 


1 
-EQUIV 6IT09,BIT9 
-EQUIV BIT08,BITS 
-EQUIV BIT07,BIT7 


SEQ 20 


_-——- a ee ee ee 


Ie 


SEQ 21 
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? -EQUIV BIT06,BIT6 
791 -EQUIV BITOS,.BITS 
792 -EQUIV BITO4,BIT4 
793 -EQUIV BITO3,BITS 
794 -EQUIV 8IT02.81T2 
795 -EQUIV 8iT01,B6IT1 
796 -EQUIV BITOO,BITO 
797 
798 s BASIC P att TRAP — oo. aa 
799 000004 ERRVEC= TIME OUT AND OTHER ERRORS 
800 000010 RESVEC= to + 1RESERVED AND ILLEGAL INSTRUCTIONS 
601 000014 TBITVEC*14 pret BIT 
802 000014 TRTVEC= 14 ss TRACE TRAP 
803 000014 BPTVEC= 14 1 sBREAKPOINT TRAP (BPT) 
804 000020 IOTVEC= 20 ss INPUT/OUTPUT TRAP (IOT) *eSCOPEss 
605 000024 PURVEC= 24 ssPOWER FAIL 
806 000030 EMTVEC= 30 ssEMULATOR TRAP (EMT) seERRORss 
807 0000 34 TRAPVEC=34 +3 “TRAP” TRAP 
608 000060 TKVEC= 60 ss TTY KEYBOARD VECTOR 
809 000064 TPVEC= 64 ssTTY PRINTER VECTOR 
810 000240 PIRQVEC*240 ssPROGRAM INTERRUPT REQUEST VECTOR 
611 000004 ILLMEM= 4 
812 000001 ADRS= Pi 
613 000002 GOOD= R2 
614 000003 BAD= 
615 000001 REGISTER=R1 
816 000002 ° 
617 000003 FUNCT= R3 
618 000002 LEAD= 
819 000004 FOLLOW= R4 
7 175610 DLADOR= 175610 
822 ; THE FOLLOWING DEFINITIONS APPLY TO THE GLOBAL SUBS 
823 177777 SET= -1 
824 000000 CLR= 0 
825 
826 
827 § SPSSOOSEOSESSESEESSSESESEEESEEEEEEOEEESEESEEEEESESEEESEEEEEEEEES 
626 s RCSR REGISTER BIT NAMES 
829 $f PPSOSOOESESEESESESEESEEESEESEEEESESSESESEEEEEESESEOEESESEDEEEES 
830 100000 DATAINT= BIT15 s DATASET INTERRUPT 
631 040000 RING= BIT14 s RINGING SIGNAL INDICATOR 
832 020000 CLRSEND= BIT13 s CLEAR TO SEND FROM DATASET 
833 010000 CARDET= BIT12 s CARRIER DETECT 
634 004000 RCVRACT= BIT1i1 s RECEIVER ACTIVE INDICATOR 
835 002000 SECREC= BIT10 s SECONDARY RECEIVE 
836 s UNUSED BITO9 
837 3 UNUSED IT08 
638 000200 VROONE = BITO7 3 RECEIVER DONE 
839 000100 RCVRIE= BITO6 ; RECEIVER INTERRUPT ENABLE 
000040 vgn Bires s DATASET INTERRUPT ENABLE 
842 000010 SECXMIT= BITOS s SECONDARY TRANSMIT DATA 
843 000004 REQSEND= BITO2 + REQUEST TO SEND 
Baa 000002 OTR= BITO1 3 DATA TERMINAL READY 





RR ee 


SEQ 22 
MAINDEC -22-CVDVA-D ot 3SOA(1052) 12-JU-84 09:52 PAGE 24 
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846 
847 jE PORORESOOEERESESEESEEEESEEESEDEEEEESEEEEEEEESESEEEESEREOEEEESES 
848 + RBUF REGISTER BIT NAMES 
849 j OOOO EERESE SEE EEEEESEEEEESEESEEEEESEESEESESEESESEEEEESEEEEESS 
650 100000 ERROR= B1T15 s ERROR INDICATOR 
851 040000 ORERR= BIT14 s OVERRUN ERROR 
852 020000 FRERR= BIT13 s FRAMING ERROR 
853 010000 PERR= BIT12 ; PARITY ERROR 
654 s UNUSED BIT1i1 
855 s UNUSED BIT10 
856 s UNUSED BITO9 
857 s UNUSED IT06 
658 RDATA7= BITO7 ; \ 
859 000100 RDATA6= BITO6 s $ 

000040 RDATAS= BITOS +}, 
661 000020 RDATA4= BITO4 ; \ RECEIVED DATA BITS 
862 000010 RDATA3= BITOS ; 
863 RDATA2= BITO2 s $ 
864 000002 RDATAL= BITO1 . 3 
— 000001 RDATAO= BITOO 3 7 
667 js OOSSSSSSSSRESEEESSEEEEESEEESEEEEEESSEESEEEEEEEESEEEEEEEEEEEEESS 
868 + TCSR REGISTER BIT NAMES 
BEd j SPOCSOSSESESESESEESESEOSEESEEEESEESEESEESESEESEESEESEEEESEEEEESS 
870 100000 PBAUD3= BIT1S > 
871 040000 PBAUD2= BIT14 + \ PROGRAMMABLE BAUD 
872 020000 PBAUD1= BIT13 ; ¢ RATE BITS 
873 010000 PBAUDO= BIT12 , # 
874 004000 PBAUDSET= BIT11 ; ENABLE SETTING OF 
875 ; PROGRAMMABLE BAUDE RATE 
876 s UNUSED BIT10 
877 s UNUSED BITOS 
678 3 UNUSED BITOS 
879 000200 XMITROY= BITO7 3 TRANSMITTER READY 
880 000100 XMITIE= BITO6 ; TRANSMITTER INTERRUPT ENABLE 
681 s UNUSED BITOS 
882 s UNUSED BITO4 
883 1 UNUSED BITOS 
884 000004 MAINT= BITO2 ; MAINTENANCE SET BIT 
685 ; UNUSED BITO1 
a3 000001 BREAK = BITOO s SEND BREAK (CONTINUOUS SPACE) 
886 
889 } OSSOSROSESSSSESSESEEEEEDEESSESESEESEESEESEESESEEESEEEESEEEEESES 
$90 ; TBUF REGISTER BIT NAMES 
691 jf OOCOSESOESE SES SESEESEESEESESEEESESESEESEEESEESESEEEDESEESEEEEES 


892 3 UNUSED BIT15 
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; UNUSED BIT14 
: UNUSED BIT13 
3s UNUSED BIT1i2 
: UNUSED BIT11 
; UNUSED BIT10 
3 UNUSED BITO9 
UNUSED BITOSe 
000200 TDATA7= BITO7 5% 
000100 TDATA6= BITO6 s ! 
000040 TOATAS= BITOS e 8 
000020 TDATA4= BITO4 : \ TRANSMITTER DATA BUFFER 
000010 TDATA3= BITOS3 , 
000004 TDOATA2= BITO2 sf 
000002 TOATAL= BITO1 s ? 
000001 TOATAO= BITOO 3 / 
bE SSSHASHESHSSHSSESEHASHEHSEHAESHEEEHSOTH LODO SHH SHEHEHKRAHEHOHEEHHEREKREHEEHHE 
; FLAG BITS TO BE USE OR CLEARED IN $USIR. 
000017 DATA = 17 
000020 PARITY = 20 
000040 EVENODO = 40 
000100 2 100 
000200 PBR = 200 
; BAUDE MUST BE ON THE UPPER 
; BYTE BOUNDRY OF S$USWR.--4 BITS 
007400 BAUD = 7400 
010000 BRK = 10000 
020000 CABLE = 20000 
040000 FRED = 
JF SSSSSSSSSSSSSSSSSSSSSSSSHSSSSSSSSSSSSSSSSSSSSSSESSESESSEHESEEEEEEES 
.SBTTL TRAP CATCHER 
000000 .*0 
3@ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A “.+2,HALT” 
s@SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
—— : LOCATION . a CONTAINS O TO CATCH IMPROPERLY LOADED VECTORS 
000000 DISPREG: LORD 0 3;SOFTWARE DISPLAY REGISTER 
000000 SWREG: -WORD O 1:SOFTWARE SWITCH REGISTER 
.SBTTL STARTING ADORESS(ES) 
000137 001336 BOSTART ;; JUMP TO STARTING ADDRESS OF PROGRAM 
.SBTTL ACT11 HOOKS 
$F SSSSSSSSASSSSSSSSSSSSSSSSSSSHSSSSSSSESSSSHSSESSHSSESESSSESEESEEEEEE 
sHOOKS REQUIRED BY ACT11 
000204 $SVPC=. sSAVE PC 
000046 .=46 
012452 ¢ENDAD 331)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
000052 .*52 
000000 -WORD O :3:2)SET LOC.5S2 TO ZERO 
000204 . =$SVPC 33 RESTORE PC 
001000 


-*1000 
-SBTTL APT PARAMETER BLOCK 
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: APT PARAMETER BLOCK 


MrTTitiiiiitiiitiiiiitiiiiiiiiiiiiiiiiiiiitiiiiiititiiititiTT titty 
;SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
RennenensenennedsnecentpescousteccssesnnGnnannnannnennannenTnnnn 

.$Xe, 3sSAVE CURRENT LOCATION 

224 VHSET POWER FAIL TO POINT TO START OF PROGRAM 

200 33FOR APT START UP 

244 +sPOINT TO APT INDIRECT ADDRESS PNTR. 

$APTHDR ;;POINT TO APT HEADER BLOCK 

.*. 6x 3 RESET LOCATION COUNTER 
MiTiiiiiiiitiiitiiiiiiiiiiiiiiiiiiiiitiiiiiiiiiiittt ttt titi itt 
;SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
s INTERFACE SPEC. 


SAPTHD: 


$SHIBTS: .WORD 0 33 TWO HIGH ht A 4 186 BIT MAILBOX ADDR 
A ‘ “te ssADORESS OF AP mat tact (BITS 0-15) 


SUNITM: . 


RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 


WORD 
. WORD 
SPASTM: .WORD 45. iD TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
woRd BO. TIONAL 

WORD ‘sETEND- sMAIL/2 s;LENGTH MAILBOX -ETABLE( WORDS ) 
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OMMON TAGS 


-SBTTL COMMON TAGS 


jf OOOOSESEEREDESEESEOSESEESEOEEESEESEESESEESEESEEEEESESEESEESEEES 
s*THIS TABLE yon § VARIOUS COMMON STORAGE LOCATIONS 
;*USEC IN THE PROGRAM 


BRZcoooooocoooroocoeoee 


SWR 
Isp 


<207><377><377> 
42/ 


<15> 
<12> 


SEQ 25 


33START OF COMMON TAGS 


ssCONTAINS THE by NUMBER 
ssCONTAINS ERROR FLAG 

ssCONTAINS SUBTEST ITERATION COUNT 
ssCONTAINS SCOPE LOOP ADDRESS 
ssCONTAINS SCOPE RETURN FOR ERRORS 
ssCONTAINS TOTAL ERRORS DETECTED 
STADE ay CONTROL BYTE 


PER TEST 
1 sCONTAINS eC OF LAST ERROR ee 
ssCONTAINS ADDRESS OF ‘GOOD’ DATA 
3s sCONTAINS ADORE SS OF ‘BAD’ DATA 


DATA 
s sSRESERVED--NOT TO BE USED 


s sAUTOMATIC MODE INDICATOR 
ss INTERRUPT MODE INDICATOR 


ssADORESS OF SWITCH REGISTER 
:sADORESS OF DISPLAY REGISTER 
33;TTY KBO STATUS 

ssTTY KBO BUFFER 

ss TTY PRINTER STATUS REG. ADORESS 
33;TTY PRINTER BUFFER REG. 


LS 
ssCONTAINS @ OF FILLER CHARACTERS REQUIRED 
ssINSERT FILL CHARS. AFTER A “LINE FEED” 
s3"“TERMINAL AVAILABLE” FLAG (BIT<07>=0=YES) 
33MAX. NUMBER OF ITERATIONS 

3 sESCAPE ON ERROR ADDRESS 
+ }CODE FOR BELL 


pp SSAHAKADEMOSCEAASHSESASHEMEHKALAKAGEEEHEHAESOHCHERHAHESOHE SEES ERA ORGES 


-SBTTL APT MAILBOX -ETABLE 


$F SSSSSSSSSSSSSSSSSSSESSSSSSSSSSSSSSHSSSSESSESESESSESHSEHSSESEEESEESEEE 
N 


33APT MAILBOX 
AMSGTY ;;MESSAGE TYPE CODE 


APASS ;;PASS COUNT 
ADEVCT ;;DEVICE COUNT 
AUNIT ;;1/0 UNIT NUMBER 
AMSGAD ;;MESSAGE ADDRESS 
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000000 
000 
000 


000000 
071110 
000000 


88 


Elesteatas | 


175610 
000001 


Ne 


SEQ 26 
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APT MAILBOX-ETABLE 


MSGLG: .WORD 

SE TABLE: 

SENV: .BYTE 

SENVM: .BYTE 

$SWREG: .WORD 

SUSWR: .WORD 

$CPUOP: .WORD 

3% 

3% 

3% 

3* 

3% 

3% 

$MAMS1: .BYTE 

SMTYP1: .BYTE 

3* 

3% 

3% 

3* 

$MADR1: .WORD 

3% 

$MAMS2: .BYTE 

$sMTYP2: .BYTE 

$MADR2: .WORD 

$MAMSS: .BYTE 

SMTYPS: .BYTE 

$MADRS: .WORD 

$MAMS4: .BYTE 

$MTYP4: .BYTE 
: .WORD 

$VECT1: .WORD 

$VECT2: .WORD 

$BASE: .WORD 

$DEVM: .WORD 


AMTYP1 


: sMESSAGE LENGTH 

33;APT ENVIRONMENT TABLE 

fe wd ah al BYTE 

3 sENVIRONMENT MODE BITS 

33sAPT SWITCH REGISTER 

33USER SWITCHES 

33;CPU TYPE,OPTIONS 

BITS 15-11*CPU TYPE 
11704201 ,11/05*02, 11/2003, 11/40=04, 11/4505 
11770206 ,PDQ=07 ,Q@=10 

BIT 10°REAL TIME CLOCK 

BIT 9=FLOATING POINT + acne 


BIT 6*MEMORY MANAGEMENT 
;sHIGH ADORESS.M.S. BYTE 
33MEM. T 8 
MEM. TYPE BYTE -- (HIGH BYTE) 


S00 NSE 

3sHIGH ADORESS ,BLKe 

MEM.LAST ADOR.=3 BYTES, THIS WORD AND LOW OF “TYPE” ABOVE 
:sHIGH ADORESS,M.S. BYTE 


2 
3 sHIGH ADORESS .M.S.BYTE 
83 -BLKOS 
33MEM. LAST ADORESS,.BLKeS 
ssHIGH ADORESS.M.S.BYIE 


ssINTERRUPT VECTORG1, BUS PRIORITYO1 
:sINTERRUPT VECTOR@2BUS PRIORITYO2 

+ BASE ADDRESS OF EQUIPMENT UNDER TEST 

;;DEVICE MAP 
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001444 
001450 7 
001454 112767 


001470 012767 


001476 013746 
001502 012737 
001510 012767 
001516 012767 
001524 022777 
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001100 
001140 
001100 
014374 
000340 
014174 
000 


177777 


177433 
177416 
177412 


000004 
177422 
177416 
177406 


B3 


SEQ 27 
12-AL-84 09:52 PAGE 29 phos 


ERROR POINTER TABLE 


-SBTTL ERROR POINTER TABLE 


s@THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN — 
seTHE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND I 
S @LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 


s@NOTE1: IF sITEMB IS O THE ONLY PERTINENT DATA IS ($ERRPC). 
3: @NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
3¢ eM ssPOINTS TO THE ERROR MESSAGE 
s¢ OH ssPOINTS TO THE DATA HEADER 
3¢ oT ssPOINTS TO THE DATA 
3° OF :sPOINTS TO THE DATA FORMAT 
SERRTB: 
83 GLOBAL DATA 
OLADO: OLADOR 
: 300 
RCSR: OLADOR + O 
RBUF: OLADOR + 2 
TCSR: OLADOR + 4 
TCSRHI: DLADOR + 5 
: : + 6 
-BLKW 20 sFOR RS STACK 
RSSTACK: -WORD O 
START: 
-SOTTL INITIALIZE THE COMMON TAGS 
33sCLEAR THE COMMON TAGS ($CMTAG) AREA 
MOV @SCHTAG RE 33FIRST LOCATION TO BE CLEARED 
CLR (R6)- 3sCLEAR MEMORY LOCATION 
CMP @SUR RE ; ;D0NE? 
.-6 3sLO00P BACK IF NO 
ACK , SP SETUP THE STACK POINTER 


MOV @STACK, 
ssINITIALIZE A 7 VECTORS 
@¢SCOPE ,@@IOTVEC ;;IOT vector FOR SCOPE ROUTINE 
ee ayy bh ssLEVEL 7 
@sERROR ,SCEMTVEC ;;EMT VECTOR FOR ERROR ROUTINE 
0340, BeENT VEC +2 ssLEVEL 7 
OS TRAP , BOTRAPVEC 33 TRAP VECTOR FOR TRAP CALLS 
0340 , BOTRAPVEC+2;LEVEL 7 
OCPURON, BOPURVEC ;;POWER FAILURE VECTOR 
0340 ,BOPWURVEC+2 ;;LEVEL 7 
sENDCT , SEOPCT 33SETUP END-OF -PROGRAM COUNTER 
¢TIMES ssINITIALIZE NUMBER OF ITERATIONS 
SE SCAPE ssCLEAR THE ESCAPE ON ERROR ADORESS 
#1, SERMAX ssALLOW ONE ERROR PER TEST 
@., $LPADR | pINITIALIZE THE LOOP ADORESS FOR SCO?’ 
@., $LPERR +sSETUP THE ERROR LOOP ADORESS 
HAROUARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
%. SETUP FOR A SOFTWARE SWITCH REGISTER. 
+ SERAVEC, -(SP) 33SAVE ERROR VECTOR 
064% , BEERRVEC 33SET UP ERROR VECTOR 
OOSWR , SUR 1:SETUP FOR A HARDWARE SWICH REGISTER 
@ODISP DISPLAY ;;AND A HARDWARE DISPLAY REGISTER 
#-1,8SuR s3sTRY TO REFERENCE HAROWARE SUR 


pact 


3sSIZE F 
+ EQUAL 


ane 


2 





SEQ 28 
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1116 001532 001012 BNE 66% 1 sBRANCH IF NO TIMEOUT TRAP OCCURRED 
1119 1:AND THE HARDWARE SWR IS NOT = -1 
1120 001534 000405 BR 65% ssBRANCH IF NO TIMEOUT 
1121 001536 012716 001544 645: MOV 065% ,( SP) 11SET UP FOR TRAP RETURN 
1122 001542 000002 RTI 
1123 001544 012767 000176 177366 05%: MOV @SWREG , SWR ssPOINT TO SOFTWARE Sur 
1124 001552 012767 000174 177362 MOV @OISPREG , DISPLAY 
1125 001560 012637 000004 665: MOV (SP)+,@@ERRVEC 1; ,RESTORE ERROR VECTOR 
1126 
1127 001564 005067 177412 R $PASS ssCLEAR PASS COUNT 
11286 001570 132767 000200 177417 BITs @APTSIZE,SENVM 5; TEST USER SIZE UNDER APT 
1129 001576 0014035 BEQ 67% ssYES,USE NON-APT SWITCH 
1130 001600 012767 001216 177332 MOV OSSWUREG , SUR 13N0,USE APT SWITCH REGISTER 
1131 001606 67%: 
1132 -SBTTL TYPE PROGRAM NAME 
1133 isTYPE THE NAME OF THE PROGRAM IF FIRST PASS 
1134 001606 005227 177777 INC @-1 ssFIRST TIME? 
1135 001612 0901051 BNE 68% 1 sBRANCH IF 
1136 001614 022737 012452 000042 Cop a ssACT-11? 
1137 001622 001445 BEG se IF YES 
1138 001624 104401 001672 TYPE sTYPE ASCIZ STRING 
1139 .SBTTL GET VALUE *POR SOF TWARE SUITCH REGISTER 
1140 001630 005737 000042 TST BH42 ssARE WE RUNNING UNDER XXDP/ACT? 
1141 001634 001012 BNE 708 ssBRANCH IF YES 
1142 001636 126727 177352 000001 CoB sENV,@1 s3sARE WE RUNNING UNDER APT? 
1143 001644 001406 RE 70% ssBRANCH IF YES 
1144 001646 026727 177266 000176 cop SUR, OSUREG 3 sSOFTWARE SWITCH REG SELECTED? 
1145 001654 001005 BNE 718 3 sBRANCH IF NO 
1146 001656 104406 GTSIR 3sGET SOFT-SWR SETTINGS 
1147 001660 000405 BR 718 
1148 001662 112767 000001 177244 70%: mOvB #1, $AUTOB 33SET AUTO-MODE INDICATOR 
1149 001670 718: 
1150 001670 000422 BR 3sGET OVER THE ASCIZ 
1151 33698: .ASCIZ SCRLF >022- CVDVA-D CLV11-E OFFLINE TESTe<CRLF> 
1152 001736 68%; 
1153 001736 LET INITFLAG := @1 
1154 001736 012767 000001 010410 MOY @1, INITFLAG 
1155 001744 LOOP : 
1156 001744 CALL CYCLE ; NO ARGUMENTS--ADORS -> NEXT ADORESS 
1157 001744 004767 010254 JSR PC.CYCLE 
1158 : ADORS+2 -> NEXT VECTOR 
1159 sGET UNIT ADORESS 
1160 001750 LET OLADD := (ADRS)- 
1161 001750 012167 177300 MOV C ADRS )+ ,.OLADD 
1162 3GET UNIT VECTOR 
1163 001754 LET OLVEC := (ADRS) 
1164 001754 011167 177276 MOV CADRS ) ,OL VEC 
1165 001760 LET ADRS :* DLADD 
1166 001760 016701 177270 MOV DLADO , ADRS 
1167 sRCSR = DLADD + O 
1166 001764 LET RCSR :* DLADD 
1169 001764 016767 177264 177266 MOV DLADD ,RCSR 
1170 001772 LET RBUF =: = DLADD + 02 
1171 001772 016767 177256 177262 MOV OLADD , RBUF 
1172 002000 062767 000002 177254 ADO 02, RBUF 


1173 002006 LET TCSR :* DLADD + 04 
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016767 
062767 
016767 
062767 


016767 
062767 


012705 
000005 


MACY11 
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177242 
000004 
177226 
000005 
177212 
000006 


001334 
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177250 
177242 


177236 
177230 


177224 
177216 
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GET VALUE FOR SOFTWARE SWITCH REGISTER 


MOV 


DLADO, TCSR 
4, TCSR 


DLADD, TCSRHI 
#5, TCSRHI 


DLADO , TBUF 
6, TSUF 


@RSSTACK RS 


LET 


LET 


LET 


TCSRHI :* DLADD + 05 


TBUF =6:* DLADD + 06 


Re :* @RSSTACK 
; sBRESET 
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000004 
012767 
012767 


016701 
010146 
012701 
012721 
012711 
012601 


005067 


012767 


062767 


016701 
066701 


000002 
000001 


177152 
000004 
012032 
000340 
177144 
002134 


007700 


007672 


000002 


177070 
177102 


177076 


177070 
177102 


176754 


177112 


000010 


a 
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ADORE SSABILITY 


FF SSSSHSSSSSSSSSHSSSSSSSSSSSSHSESESSSSESSSHSSHESESESEEESESESEEEEEEES 


seTEST 1 ADORESSABILITY 
38 THIS TEST re ae THAT THE ADORESS AS PLACED IN 
3° THE HARDWARE P-TABLE TO BE CORRECT AND THE DLV11-E RESPONDS 
:¢ TO THAT ADORESS SPACE 
PPETIITITiiiitiitiiiitiiiiiriittiiiiitiiiiiiiitiiiiiiititiiitittyT) 
TSTl: SCOPE 
MOV @2,$TIMES 3300 2 ITERATIONS 
MOV #1,$TESTN 33SET TEST NUMBER IN APT MAIL BOX 
LET ADRS :* DLADD 
MOV DLADO , ADRS 
3; SET UP INTERRUPT 
SETVEC SILLMEM, @INTSRV , OPR7 
MOV R1,-CSP) 
MOV @ILLMEM,R1 
MOV @INTSRV,CR1)> 
MOV @PR7,CR1) 
MOV (SP)+,R1 
LET I := #0 
CLR I 
REPEAT 
$1: 
BGNSUS 
MOV 064%, $LPERR 
sCLEAR FLAG 
LET INTFLAG := 60 
CLR INTFLAG 
;READ FLAG 
TST BADRS 
IF INTFLAG NE #0 THEN 
TST INTFLAG 
BEQ $2 
: FATAL ERROR 
ERROF 1,.NOOL 
ERROR 1 
ENDIF 
$2: 
ENDSUB 
LET I :* I + 62 
ADD 2,1 
LET ADRS := DLADD + I 
MOV 0. ADO , ADRS 
ADO I, ADRS 
UNTIL I EQ 08. 
CMP 1,08. 
BNE $1 
CLRVEC ILLMEM 
MOV R1,-C(SP) +3PUSH R1 ON STACK 
MOV - ) +3PUSH R2 ON STACK 
MOV @ILLMEM,R1 
MOV R1,R2 
ADO @2,R2 
MOV R2,(R1)> 
CLR 1) 
MOV (SP )+,R2 +3PO0P STACK INTO R2 


oe ee  - e  e -—- 





MAINDEC -22-CVDVA-D 


CVOVAD .P11 12-JUL -84 05 


1242 002224 012601 
1243 
1244 002226 


-_— - eae ee ee ee le ——— 


ra 


SEQ 31 
MACY11 30A(1052) 12-JU-84 09:52 PAGE 33 
:04 Tl ADDRESSABILITY 
MOV (SP)+,R1 3sPOP STACK INTO Ri 
sEND OF TEST 
ENOTST 


FF SSSSSSSSSSSSSSHSSSSSSSSSESSHSSSSSSSSESHOSSSESEEEHEEEHEEEEEEEEEEESD 


3* THE FOLLOWING 6 TESTS TEST ALL ‘READ WRITE’ BITS 


J FSSSHSHSASSSSSSSSHSSESSSSSSSESSSSESSESHSSSESESEEEESEEEEEEEEESEEEES 





e+ ee eres eo weer OO Oeeee- ss er: 


MAINDEC -2Z-CVDVA-D MACY11 SOAC105S2) 12-JNU-84 09:52 PAGE 34 
CVOVAD .P11 12-JUL-84 05:04 T2 BREAK - TCSRO SET, CLEAR, RESET 


1250 8S SSSHSHSSSEHESSEEEHEHSESE SOSSHESESSEASHSESHSEESEESESEESEESEHEEEEEESD 
1251 seTEST 2 BREAK - TCSRO SET, CLEAR, RESET 

1252 16 NOTE: THE (H) JUMPER MUST BE REMOVED FOR THIS 

1253 :6 TEST TO FUNCTION PROPERLY. 


1254 } LOOROOESEERESESESEEESESESESEEESEERESESEEESESEEESESESESEESESEEEES 
TST2: SCOPE 


000004 
1256 002230 012767 000010 176722 MOV #10, $TIMES 3300 10 ITERATIONS 
1257 002236 012767 000002 176734 MOV @2,$TESTN 3sSET TEST NUMBER IN APT MAIL BOX 


1259 002244 IF @BRK NOTSETIN $USWR THEN 
1260 002244 032767 010000 176746 BIT @BRK , SUSWR 
1261 002252 001004 $3 


BNE 
EXIT TST 
1263 002254 012767 000001 176676 MOV #1, $TIMES 
000452 BR TsT3 


33sEXIT THIS TEST 
ENDIF 


1266 002264 $3; 
1267 ; SEE IF IT IS CLEAR 
BGNSUB 


1269 002264 012767 002272 176616 MOV 064%, $LPERR 


1271 002272 IF @BREAK SETIN @TCSR THEN 
1272 002272 032777 000001 176764 BIT @BREAK , BTCSR 

1273 002300 001401 BEQ $4 

1274 s BREAK DID NOT RESET IN TCSR 
1275 002302 ERRHRD 2, .DIDNOT 

1276 002302 104002 ERROR 2 

1277 002304 ENDIF 

1276 002304 $4; 

1279 002304 ENDSUB 


1261 s TRY TO SET BREAK BIT 
BGNSUB 


262 
1283 002304 012767 002312 176576 MOV 064%, SLPERR 
1264 002312 LET @TCSR := @TCSR SET.BY @BREAK 
1265 002312 052777 000001 176744 BIS @BREAK , BTCSR 
1266 ; STUCK TO O 
12867 002320 IF @BREAK NOTSETIN @ICSR THEN 
1268 002320 032777 000001 176736 BIT @BREAK , BTCSR 
1289 002326 001001 BNE $5 
1290 ; BREAK DID NOT SET IN TCSR 
1291 0023350 ERRHRD 3, ,0IDNOT 
002330 104003 ERROR 3 
002332 ENOIF 
002332 $5: 
002332 ENDSUB 


1292 

1293 

1294 

1295 

1297 s TRY TO CLEAR A SET BIT 
1296 BGNSUB 
i 002332 012767 002340 176550 MOV 064%, $LPERR 
1301 

1302 

1303 

1304 

1305 


002340 LET @TCSR := @TCSR CLR.BY @BREAK 
002340 042777 000001 176716 BIC @BREAK , BTCSR 
+ SHOULD HAVE CLEARED 


002346 IF @BREAK SETIN @TCSR THEN 
002346 032777 000001 176710 BIT @BREAK ,OTCSR 





MAINDEC -2Z-CVDVA-D 
CVOVAD .P11 


002354 


ESS * Whe re ee ee 


SEQ 33 
MACY11 30A(1052) 12-JU.-64 09:52 PAGE 35 
12-JU_-84 05:04 T2 BREAK - TCSRO SET, CLEAR, RESET 
001401 BEQ $6 
; BREAK OID NOT CLEAR IN TCSR 
ERRHRD 4, ,DIDNOT 
104004 ERROR 4 
ENDIF 
$6: 
ENOSUB 
3; NOW SEE IF RESET CLEARS IT 
BGNSUB 
012767 002366 176522 MOV 064%, $LPERR 
LET @TCSR := @TCSR SET.BY SBREAK 
052777 000001 176670 BIS @BREAK ,ATCSR 
s ISSUE BUS RESET 
SET 
000005 RESET 
IF @BREAK SETIN @TCSR THEN 
032777 000001 176660 BIT @BREAK ,BTCSR 
001401 BEQ $7 
3 BREAK DID NOT RESET IN TCSR 
ERRHROD 5S, .OIDNOT 
104005 ERROR 5 
ENOIF 
$7: 
ENDSUB 


ENDTST 


FF SSSSSHSSSSSSSSSSSSESSSSSSSSHSSSSSSESSSSSSSESSESSSSESEEEEEEEESEESEEEEE 





MAINDEC -Z2-CVOVA-D 
CVOVAD .P11 


12-JU -84 


000004 
012767 
012767 


012767 


032777 
001401 


104006 


012767 
052777 


032777 
001001 


000010 
000003 


002454 


SEQ 34 
30A(1052) 12-JUL-84 09:52 PAGE 36 
T3 MAINT - TCSR2 SET, CLEAR, RESET 
PULITITIVI Ci iiiiiitiiiiiitiiiiiitiiriiiitiiitiiiiiiiiiitiTititi ty 
s@TEST 3 MAINT - TCSR2 SET, CLEAR, RESET 
PwETIIIiITiiiiiitiiiititiriiiitiitiitiiiiiiititiitiitiitititiit ttt 
TST3: SCOPE 
176540 MOV 10, $TIMES 3300 10 ITERATIONS 
176552 MOV @3,$TESTN 33SET TEST NUMBER IN APT MAIL BOX 
; SEE IF IT IS CLEAR 
BGNSUB 
176454 MOV 064%, $LPERR 
IF @MAINT SETIN @TCSR THEN 
176622 BIT @MAINT ,@TCSR 
BEQ $10 
3 MAINT DID NOT RESET IN TCSR 
ERRHRD 6, .DIDNOT 
ERROR 6 
ENDIF 
$10: 
ENDSUS 
3 TRY TO SET MAINT BIT 
BGNSUB 
176434 MOV 064%, $LPERR 
LET @TCSR := @TCSR SET.BY MAINT 
176602 BIS @MAINT ,@TCSR 
; STUCK 10 0 
IF O@MAINT NOTSETIN @TCSR THEN 
176574 BIT @MAINT ,@TCSR 
BNE $11 
; MAINT DID NOY SET IN TCSR 
ERRHRD 7, ,.D0IDNOT 
ERROR 7 
ENOIF 
$11: 
ENDSUB 
; TRY TO CLEAR A SET BIT 
BGNSUB 
176406 MOV 064%, $LPERR 
LET @TCSR := @TCSR CLR.BY OMAINT 
176554 BIC @MAINT ,@TCSR 
3 SHOULD HAVE CLEARED 
IF @MAINT SETIN STCSR THEN 
176546 BIT OMAINT ,@TCSR 
BEQ $12 
; MAINT DID NOT CLEAR INTCSR 
ERRHRD 10, ,DIDNOT 
ERROR 10 
ENDIF 
$le: 
ENOSUB 


13 


s NOW SEE IF RESET CLEARS IT 
BGNSUB 





J3 


MAINDEC -22-CVDVA -D MACY11 3OAC1052) 12-JU-84 09:52 PAGE 37 
_ CvDVAD.P11 12-JUL-84 05:04 T3 MAINT - TCSR2 SET, CLEAR, RESET 


1392 002522 012767 002530 176360 MOV 064%, $LPERR 


1394 002550 LET S@TCSR :* @TCSR SET.BY OMAINT 
1395 002530 052777 000004 176526 BIS OMAINT ,@TCSR 
1396 ade BUS RESET 


1398 002536 000005 RESET 

1399 002540 IF @MAINT SETIN @TCSR THEN 
| 3400 002540 032777 000004 176516 BIT @MAINT ,@TCSR 

1401 002546 001401 BEQ $13 


SEQ 35 


3002 ; MAINT DID NOT RESET IN TCSR 
1403 002550 ERRHRD 11, ,DIDNOT 

1404 002550 104011 ERROR 11 

1405 002552 ENDIF 

1406 002552 $13: 

1407 002552 ENDSUB 

1408 002552 ENDTST 


1412 FF SSSSSSSSHHSSSSSSSSESSESSSSSEHASSESSSESHSSSSEESHSSHESEEEEESESEEEEEEEESEED 


aly 355 ie eR eee oe ee 4 


MAINDEC -2Z-CVDVA-D MACY11 sotalol oat AL -84 09:52 PAGE 38 
CVOVAD.P1il 12-JUL-84 05:04 XMITIE - TCSR6 SET, CLEAR, RESET 


1413 FF SSHSSSSSSSSHSSESSSHSHESSSHHSEESSSESHHESEHEEEEESEEEEEEEEEEEEEEEED 
1414 ;@TEST 4 XMITIE - TCSR6 SET, CLEAR, RESET 

1415 FF SSSSSSSSSSSSSSSSSSSSHEHEHSSSSSSSSSSHEHSHHEASSESEEEESEEHEEEEEEEEES 
1416 002552 000004 TST4: COPE 

1417 002554 012767 000010 176376 MOV #10, $TIMES 33:00 10 ITERATIONS 

1418 002562 012767 000004 176410 MOV 4, $TESTN 33SET TEST NUMBER IN APT MAIL BOX 
1419 3 USE PRIORITY OF 7 
1420 002570 012746 000340 MOV @PR7, -(SP) 33PUT NEW PS ON STACK 

1421 002574 012746 002602 MOV 064%, -(SP) :3PUT NEW PC ON STACK 

1422 002600 000002 RTI :3P0P NEW PC AND PS 


1425 s SEE IF IT IS CLEAR 
426 BGNSUB 
1427 002602 012767 002610 176300 MOV 65%, SLPERR 


1429 002610 IF @XMITIE SETIN @TCSR THEN 
1430 002610 032777 000100 176446 BIT @XMITIE ,@TCSR 

1431 002616 001401 BEQ $14 

1432 ; XMITIE DID NOT RESET IN TCSR 
1433 002620 ERRHRD 12, ,.DIDNOT 

1434 002620 104012 ERROR 12 

1435 002622 ENDIF 

1436 002622 $14: 

1437 002622 ENDSUB 


1439 ; TRY TO SET XMITIE BIT 
BGNSUB 


1441 002622 012767 002630 176260 MOV 064%, $LPERR 

1442 0026350 LET STCSR := @TCSR SET.BY @xMITIE 
1443 002630 052777 000100 176426 BIS @XMITIE ,@TCSR 

1444 + STUCK T0 0 

1445 002636 IF @XMITIE NOTSETIN @TCSR THEN 
1446 002636 032777 000100 176420 BIT @XMITIE ,@TCSR 

1447 002644 001001 BNE $15 

1448 ; XMIT DID NOT RESET IN TCSR 
1449 002646 ERRHRD 13, ,D0IDNOT 

1450 002646 104015 ERROR 13 

1451 002650 ENDIF 

1452 002650 $15: 

1453 002650 ENDSUB 


1455 s TRY TO CLEAR A SET BIT 
BGNSUB 
1457 002650 012767 002656 176232 MOV 064%, $LPERR 


1459 002656 LET @TCSR := BTCSR CLR.BY OxMITIE 
1460 002656 042777 000100 176400 BIC @xMITIE ,@TCSR 

1461 ; SHOULD HAVE CLEARED 

1462 002664 IF @XMITIE SETIN @TCSR THEN 
1463 002664 032777 000100 176372 BIT @XMITIE ,@TCSR 

1464 002672 001401 BEQ $16 

1465 ;  XMIT DID NOT CLEAR IN TCSR 
1466 002674 ERRHRD 14, ,.DIDNOT 

1467 002674 104014 ERROR 14 

1466 002676 ENDIF 





on 


oo ang 1% CVOVA-D MACY11 tapas * ai JA-84 09:52 


CvOVAD .P 


PAGE 39 
12-JUL-84 05:04 XMITIE - TCSR6 SET, CLEAR, RESET 


002676 $16: 
002676 ENOSUB 


s NOW SEE IF RESET CLEARS IT 
BGNSUB 
002676 012767 002704 176204 MOV 064%, $LPERR 


002704 LET @TCSR := STCSR SET.BY OXMITIE 
002704 052777 000100 176352 BIS @XMITIE,@TCSR 
a> ue BUS RESET 


002714 IF @XMITIE SETIN @TCSR THEN 
002714 032777 000100 176342 BIT en 


3; XMIT DIDO NOT RESET IN TCSR 
002724 ERRHRD 15, .DIONOT 
002724 104015 ERROR 15 
002726 ENOIF 
002726 $17: 


ENDSUB 
002726 ENOTST 


FF SSSSSSSSHSSSSSSSSSSSSSSSESSEHSSSEHSSESSSSHESSSESHSSSESESEEKEEEEEEEESE 


ad | gs M3 a yu 
| 
SEQ 38 
MAINDEC -22-CVDVA-D MACY11 30A(1052) 12- JUL- 04 09:52 PAGE 40 
CVOVAD.P11 12-JUL-84 05:04 TS DTR - RCSR1 SET, CLEAR 
1495 FY arn oe < aren Gee. Gee ect ae cre 
1496 ;eTEST 5 DTR - RCSR1 SET, CLEAR 
1497 :¢ NOTE: RESET DOES NOT CLEAR THIS BIT 
1498 3¢ WE CANNOT TEST FOR AN INITIAL CONDITION 
4499 8 AS THIS BIT IS UNDEFINED UPON POWER UP AND 
1500 3° INIT DOESN'T AFFECT IT. 
| 4501 3¢ THE (-FD) JUMPER MUST BE IN FOR THIS TEST TO WORK. 
| 1502 3 J SSSSSSSSSSHSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSHSEHESEEEEEEE 
| 1503 002726 000004 TSTS: 
1504 002730 012767 000010 176222 MOV #10, $TIMES 3300 10 ITERATIONS 
| 4505 002736 012767 000005 176234 MOV #5, $TESTN 33SET TEST NUMBER IN APT MAIL BOX 
1506 002744 IF @FRFOD NOTSETIN $USWR THEN 
1507 002744 032767 040000 176246 BIT OF RFD, SUSUR 
1508 002752 001004 BNE $20 
1509 002754 EXIT TST 
1510 002754 012767 000001 176176 MOV #1, $TIMES 
1511 002762 000441 BR TST6 s33€XIT THIS TEST 
1512 002764 ENDIF 
1513 002764 $20: 
1514 ; TRY TO CLEAR OTR BIT 
1515 002764 BGNSUB 
1516 002764 012767 002772 176116 MOV 064%, $LPERR 
1517 002772 LET @RCSR := BRCSR CLR.BY @DTR 
1518 002772 042777 000002 176260 BIC @0TR,@RCSR 
1519 ; STUCK TO 0 
1520 003000 IF @OTR SETIN @RCSR THEN 
1521 003000 032777 000002 176252 BIT @OTR,@RCSR 
1522 003006 001401 BEQ $21 
1523 ; DTR DID NOT CLEAR IN RCSR 
1524 003010 ERRHRD 16, ,.DIDNOT 
1525 003010 104016 ERROR 16 
1526 003012 ENDIF 
1527 003012 $21: 
1528 003012 ENDSUB 
1529 
1530 ; TRY TO SET OTR 
1531 003012 
1332 003012 012767 003020 176070 MOV 064%, $LPERR 
| 1534 003020 LET @RCSR := BRCSR SET.BY @OTR 
| 1535 003020 052777 000002 176232 BIS @OTR,@RCSR 
1536 003026 IF @OTR NOTSETIN @RCSR THEN 
| 1537 003026 032777 000002 176224 BIT @OTR,@RCSR 
1538 003034 001001 BNE $22 
1539 ; DTR DID NOT SET IN RCSR 
1540 003036 ERRHRD 17, ,DIDNOT 
1541 003036 104017 ERROR 17 
1542 003040 ENOIF 
1543 003040 $22: 
1544 003040 ENOSUB 
1545 
1546 ; TRY TO CLEAR IT AGAIN 
1547 003040 BGNSUB 
| 1548 003040 012767 003046 176042 MOV 064%, SLPERR 
| 1549 003046 LET @RCSR -= @RCSR CLR.BY eDTR 


1550 003046 042777 000002 176204 BIC @OTR,@ARCSR 





MAINDEC -22Z-CVDVA-D MACY11 30A( 1052) 
| CVDVAD.P11 


12-JUL-84 05:04 


032777 000002 176176 
001401 


104020 





12-JU-84 09:52 PAGE 41 
TS OTR - RCSR1 SET, CLEAR 


BIT OTR, @RCSR 
BEQ $23 


ERROR 20 
$23: 


SEQ 39 


; SHOULD HAVE CLEARED IT 
IF @OTR SETIN @RCSR THEN 


; OTR DID NOT CLEAR IN RCSR 
ERRHRD 20, ,DIDNOT 


ENDIF 


ENDSUB 


ENDTST 


SE MACARHEAAEHSEHHAEHEHES EHTS AKESMHHAEHHAAESHASKHEEEAHESAAESHHEKEREEKE HAASE 








22 ee 
B4 | 
SEQ 40 
MAINDEC -22-CVDVA-D MACY11 SOAC1052) 12-KA-64 09:52 PAGE 42 
CVDVAD.P11 12-JUL -84 05:04 T6 REQSEND - RCSR2 SET, CLEAR, RESET 


1566 § FE SSSSSSSHSSSSSSSHSSSSSSSSSHOSSSSSSSSESESHSSSSSSESSSSESSEEESESEEES 
1568 a THIS TEST ASSUMES THAT JUMPER -(FR) IS IN 
1569 £ J SSHSOSSSSHSSHSSSSESSSSSSSSSSSSSSHSSSSESSHSESSSSSSEESHSESEEEEEESS 
1570 003066 600004 TST6: OPE 
1571 003070 012767 000010 176062 MOV 010, TIMES 1300 10 ITERATIONS 
1572 003076 012767 000006 176074 MOV 06, $TESTN 33SET TEST NUMBER IN APT MAIL BOX 
1573 003104 IF @FRFD NOTSETIN SUSWR THEN 
1574 0031038 032767 040000 176106 BIT OF RFD, SUSWR 
1575 003112 001004 BNE tea 
1576 003114 EXIT TST 
1577 003114 012767 000001 176036 MOV #1, $TIMES 

000452 BR TST7 sssEXIT pe > Fi 


1580 003124 $24; 

1562 3s SEE IF IT IS CLEAR 
BGNSUB 

1564 003124 012767 003132 175756 MOV 064%, SLPERR 


1586 003152 IF @REQSEND SETIN SRCSR THEN 
1587 003132 032777 000004 176120 BIT @REQSEND , BRCSR 

15866 003140 001401 BEd $25 

1589 3 REQSEND DID NOT RESET IN RCSR 
1590 003142 ERRHRD 21, .D0IDNOT 

1591 003142 104021 ERROR 21 

1592 003144 ENDIF 

1593 003144 $25: 

1594 003144 ENDSUB 


1596 s TRY TO SET REQSEND BIT 
BGNSUBS 


1596 003144 012767 003152 175736 MOV 064%, SLPERR 

1599 003152 LET @RCSR := BRCSR SET.BY @REQSEND 
1600 003152 052777 000004 176100 BIS @REQSEND , BRCSR 

1601 ; STUCK TO 0 

1602 003160 IF @REQSEND NOTSETIN @RCSR THEN 
1603 003160 032777 000004 176072 BIT @REQSEND , BRCSR 

1604 003166 001001 BNE $26 

1605 3 REQSEND DID NOT SET IN RCSR 
1606 003170 ERRHRD 22, .DIDNOT 

1607 003170 104022 ERROR 22 

1606 003172 ENDIF 

1609 003172 $26: 

1610 003172 ENDSUB 


1612 s TRY TO CLEAR A SET BIT 
BGNSUB 
1614 003172 012767 003200 175710 MOV 0644, SLPERR 


1616 003200 LET @RCSR := BRCSR CLR.BY @REQSEND 
1617 003200 042777 ON0004 176052 BIC @REQSEND , GRCSR 

1616 ; SHOULD HAVE CLEARED 

1619 003206 IF @REQSEND SETIN @RCSR THEN 
1620 003206 032777 000004 176044 BIT @REQSEND , BRCSR 

1621 003214 001401 BEG $27 


4 

MAINDEC -22-CVDVA-D MACY11 SOA(1052)_ 12-WA.-84 09:52 PAGE 43 0 41 
CVDVAD.P11  12-JUL-84 05:04 REQSEND - RCSR2 SET, CLEAR, RESET 

1622 ; REQSEND DID NOT CLEAR IN RCSR | 

1623 003216 ERRHRO 23, ,.DIONOT 

1624 003216 104023 ERROR 23 

1625 003220 ENDIF 

1626 003220 $27: 

1627 003220 ENDSUB 

1629 : NOW SEE IF RESET CLEARS IT 

BGNSUB 
1631 003220 012767 003226 175662 MOV 0644, SLPERR 
1633 003226 LET  GRCSR :* GRCSR SET.BY @REQSEND 


1634 003226 052777 000004 176024 BIS @REQSEND , BRCSR 
1635 nade BUS RESET 


1638 003236 IF @REQSEND SETIN GRCSR THEN 
1639 003236 032777 000004 176014 BIT — 


1641 3 REQSEND DID NOT RESET IN RCSR 
1642 003246 ERRHRD 24, ,.DIDNOT 


1644 003250 ENDIF 
1645 003250 $30: 


ENDSUB 
1647 003250 ENDTST 


1651 PULILIT IIT iiiiiiiiiiiiiititiiiiiiiitiiiiiitititititi itty) 


MAINDEC -22-CvDVA-D 
12- JU -84 


CvOVAD. 


Pil 


000004 
012767 
012767 


012767 


032777 
001401 


104025 


012767 
052777 


032777 
001001 


104026 


012767 
042777 


032777 
001401 


104027 


012767 


MACY11 
05:04 

000010 
000007 
003274 


000010 


003314 
000010 


000010 


003342 
000010 


000010 


003370 


3SOAC ane” 


175700 
175712 


175614 


175756 


175574 
175736 


175730 


175546 


175710 


175702 


175520 


SEQ 42 


° thet 09:52 PAGE 44 


SECXMIT - RCSRS 


SET, CLEAR, RESET 


§ LSSSOSSSSSHSHSSOSSSOSHSSESSSHSSSSSSSSSHSSSESSSSEESSEEOHSEEEEEEEEES 
3,eTEST 7 


8 FE SSSHSHSSSSSSSSSSSSSSSSSSSSSSSOSSHSSSSESSSSEOSEEESEESEEEESEEEEEEEE 


TST?; 


$31: 


$32: 


$33; 


MOV 
MOV 


BIT 
BNE 


SECXMIT - RCSRS SET, CLEAR, RESET 


#10, $TIMES 3100 10 ITERATIONS 
@7,$TESTN 13SET TEST NUMBER IN APT MAIL BOX 
s SEE IF IT IS CLEAR 
064% , SLPERR 
IF @SECXMIT SETIN @RCSR THEN 
— 
s SECXMIT OID NOT RESET IN RCSR 
25 ERRHRD 25. ,D0IDNOT 
ENDIF 
ENDSUB 
s TRY TO SET SECXMIT BIT 
BGNSUB 
064%, SLPERR 
LET @RCSR := BRCSR SET.BY @SECXMIT 
@SECXMIT ,@RCSR 
; STUCK TO 0 
IF @SECXMIT NOTSETIN @RCSR THEN 
elt 
; SECXMIT DID NOT SET IN RCSR 
ERRHRD 26, .0IDNOT 
26 
ENDIF 
ENDSUB 
s TRY TO CLEAR A SET BIT 
BGNSUB 
064%, SLPERR 
LET @RCSR := GBRCSR CLR.BY @SECXMIT 
@SECXMIT,@RCSR 
+ SHOULD HAVE CLEARED 
IF @SECXMIT SETIN @RCSR THEN 
+ ~ ral emamtaa 
s SECXMIT DID NOT CLEAR IN RCSR 
- ERRHRD 27, ,D0IDNOT 
ENDIF 
ENDSUB 
BGNSUB 
064%, $LPERR 


s NOW SEE IF RESET CLEARS IT 


MAINDEC -22-CVOVA-D 
CVOVAD.P11 


003370 
003370 


12- JU -84 


052777 


SEQ 43 


MACY11 30A(1052) 12-JU-84 09:52 PAGE 45 
05:04 17 


000010 175662 


000010 175652 


SECXMIT - RCSR3 SET, CLEAR, RESET 


LET @RCSR :* BRCSR SET.BY @SECXMIT 
s_ ISSUE BUS RESET 
SET 


BIS @SECXMIT, ARCSR 


RESET 
IF @SECXMIT SETIN @RCSR THEN 
BIT @SECXMIT, @RCSR 
BEQ $34 
s SECXMIT DIO NOT RESET IN RCSR 
ERRHRD 30, ,D0IDNOT 
ERROR 30 
ENDIF 
$34; 
ENDSUB 
ENDTST 


FF SSSSSSHSSSSSHSSSSSSSSSSSESSSSESSSSSSESSSSSSSESSESHESESESEEESEHSESEES 


MAINDEC -22-CVDVA-D 
CVOVAD.P11 


12-JUL -84 


000004 
012767 
012767 


012767 


032777 
001401 


104031 


012767 
052777 


032777 
001001 


104032 


012767 
042777 


032777 
001401 


104033 


012767 





MACY11 SOAC es 


05:04 


003456 


003504 


003532 


175536 
175550 


175452 


175614 


175432 
175574 


175566 


175404 


175540 


175356 


F4 


12-JU-84 09:52 PAGE 46 
T10 DATAIE - RCSRS SET, CLEAR, RESET 


iF SSSSSSASASSSSSSESSSSSSSSESSHEEESSHESEEEESEESEEEEESEEEEEHEEEEEEEEE 


s*TEST 10 DATAIE - RCSRS SET, CLEAR, RESET 
MEI rriiiriiiiiritiiiiiiiiiiiiritiiti iit iry 
TST10: SCOPE 

MOV #10, $TIMES 3300 10 ITERATIONS 

MOV #10, $TESTN ssSET TEST NUMBER IN APT MAIL BOX 


s SEE IF IT IS CLEAR 
BGNSUB 
MOV 064%, $LPERR 


IF @DATAIE SETIN @RCSR THEN 


BIT @DATAIE , @RCSR 
$35 


BEQ 
s DATAIE DID NOT RESET IN RCSR 
ERRHRD 31, .0IDNOT 
ERROR 31 
ENDIF 
$35: 
ENOSUB 
3 TRY TO SET DATAIE BIT 
BGNSUB 
MOV 064%, $LPERR 
LET @RCSR := BRCSR SET.BY @DATAIE 
BIS @DATAIE ,@RCSR 
: STUCK T0 0 
IF @OATAIE NOTSETIN @RCSR THEN 
BIT @DATAIE ,@RCSR 
BNE $36 
; DATAIE DID NOT SET IN RCSR 
ERRHRD 32, ,DIDNOT 
ERROR 32 
ENDIF 
$36: 
ENOSUB 
s TRY TO CLEAR A SET BIT 
BGNSUB 
MOV 064%, $LPERR 
LET @RCSR := BRCSR CLR.BY @DATAIE 
BIC @OATAIE ,@RCSR 
: SHOULD HAVE CLEARED 
IF @DATAIE SETIN @RCSR THEN 
BIT @ODATAIE ,@RCSR 
BEQ $37 
: DATAIE DIO NOT CLEAR IN RCSR 
ERRHRO » -DIONOT 
ERROR 33 
ENOIF 
$37: 
ENOSUB 


s NOW SEE IF RESET CLEARS IT 
BGNSUB 
MOV 064%, $LPERR 





MAINDEC -Z7-CVOVA-D 
CVOVAD.P11 


12-JU -84 


052777 


oe 


G4 


SEQ 45 


an 30AC 1052) me -JU-84 69:52 PAGE 47 


000040 175520 


000040 175510 


DATAIE - RCSRS SET, CLEAR, RESET 


LET @RCSR :* GRCSR SET.BY @DATAIE 
s ISSUE BUS RESET 
SET 


BIS @DATAIE ,@RCSR 


RESET 
IF @DATAIE SETIN @RCSR THEN 
BIT @DATAIE ,@PCSR 
BEQ $40 
: DATAIE DIO NOT RESET IN RCSR 
ERRHRD » OIDNOT 
ERROR 34 
ENOIF 
$40: 
ENODSUB 


ENOTST 


8 F SSSSSSSSSSSSSSSSSSSSSSSSSTSESSSSSESSSSSESSEESSSSESESESEEESSEESEEEEE 


MAINDEC -2Z-CVDVA-D 


CvOVAD.P1i1 


ee Ce ae ee i 


H4 


SEQ 46 
MACY11 a, 12-JU-864 09:52 PAGE 48 
12-JUL -84 05:04 Til RCVRIE - RCSR6 SET, CLEAR, RESET 
PeLIIITIT( fT riiriiiiiiiiiititiiiiiiiiiiiititiiiiiiitiiiitiTititityT 
s@TEST 11 RCVRIE - RCSR6 SET, CLEAR, T 
PWETIIIII II iiiiiiitiiitiiiiiiiiiiiiiiiiiiitiiiiiiitiiiittitittit 
000004 TST11: SCOPE 
012767 000010 175374 MOV 910, $TIMES 3300 10 ITERATIONS 
012767 000011 175406 MOV #11,$TESTN 33SET TEST NUMBER IN APT MAIL BOX 
; SEE IF IT IS CLEAR 
012767 003600 175310 MOV 064%, $LPERR 
IF @RCVRIE SETIN @RCSR THEN 
032777 000100 175452 BIT @RCVRIE , BRCSR 
001401 BEQ $41 
; RCVRIE DID NOT RESET IN RCSR 
ERRHRD 35, .D0IDNOT 
104035 ERROR 35 
ENDIF 
$41: 
ENODSUB 
; TRY TO SET RCVRIE BIT 
BGNSUB 
012767 003620 175270 MOV 064% , $LPERR 
LET @RCSR := SRCSR SET.BY ORCVRIE 
052777 000190 175432 BIS @RCVRIE , @RCSR 
: STUCK 710 0 
IF @RCVRIE NOTSETIN @RCSR THEN 
032777 000100 175424 BIT @RCVRIE , BRCSR 
001001 BNE $42 
3 RCVRIE DID NOT SET IN RCSR 
ERRHRD 36, .DIDNOT 
104036 ERROR 36 
ENDIF 
$42: 
ENDSUB 
: TRY TO CLEAR A SET BIT 
BGNSUB 
012767 003646 175242 MOV 064%, $LPERR 
LET @RCSR := @RCSR CLR.BY @RCVRIE 
042777 000100 175404 BIC ORCVRIE , @RCSR 
: SHOULD HAVE CLEARED 
IF @RCVRIE SETIN @RCSR THEN 
032777 000100 175376 BIT @RCVRIE ,BRCSR 
001401 BEQ $43 
; RCVRIE DID NOT CLEAR IN RCSR 
ERRHRD 37, ,DIDNOT 
104037 ERROR 37 
ENDIF 
$43; 
ENODSUB 
3; NOW SEE IF RESET CLEARS IT 
BGNSUB 
012767 003674 175214 MOV 064%, $LPERR 





MAINDEC -2Z-CVDVA-D 
CVDVAD.P11 


MACY11 SOAC —, 


12-JUL -84 05:04 


052777 


000100 175356 


000100 175346 


14 


SEQ 47 
a JUL-84 09:52 PAGE 4 
RCVRIE - RCSRE set, CLEAR, RESET 


LET @RCSR :* @RCSR SET.BY ORCVRIE 


s_ ISSUE BUS RESET 
BRESET 


BIS @RCVRIE , BRCSR 


RESET 
IF @RCVRIE SETIN @RCSR THEN 
BIT @RCVRIE , BRCSR 
BEQ $44 
3; RCVRIE DID NOT RESET IN RCSR 
ERRHRD 40, ,.DIDNOT 
ERROR 40 
ENDIF 
$44; 
CKLOOP 
END 
ENDTST 


} SOSSSOSOESESSSSESEESESEESESSEESESEESEESEEEEEEESEESEESEESESEESEESE 
3* THE FOLLOWING 4 TESTS VERIFY 
3@ THAT RESET CINIT) INITIALIZES READ ONLY BITS. 


3 F SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSHESSSSESSSHSEHSESEEEEEEEEEEEEEEES 





MAINDEC -2Z-CVOVA-D 
CVOVAD .P11 


MACY11 


12-JUL -84 05:04 


000004 
012767 
012767 


012767 


032777 
001402 


104041 


000010 
000012 


003742 


30A( 1052) 


175232 
175244 


175146 
175310 


12-JUL -84 
T12 


TEST 


J4 


09:52 PAGE 50 
THAT RCVRDONE - RCSR 7 - IS CLEARED BY INIT 


SEQ 48 


FF SSSSSSSSHSSHSSSHSHHSEHSSSSSHSEHESSESEEHESEEEEEEHEEEEESEERESEEEEEEE 
s*TEST 12 
J SOSOSSSSHSSSSSSSSSEHEESSEESESESEHEHESESSEEEEESEEEEEEEEEES SEEEEEDE 


é 
TSTle2: 


$45: 


Vv 
MOV 


RESET 


TEST THAT RCVRDONE - RCSR 7 - IS CLEARED BY INIT 


#10, $TIMES 3300 10 ITERATIONS 
#12, $TESTN s33SET TEST NUMBER IN APT MAIL BOX 
BGNSUB 
0643, $LPERR 
IF @RCVRDONE SETIN @RCSR THEN 
@RCVROONE , BRCSR 
$45 
sRCVROONE SHOULD HAVE CLEARED BY INIT 
3 RCVRDONE DID NOT CLEAR IN RCSR 
“ ERRHRD 41,HRESET, DIDNOT 
sREISSUE RESET 
BRESET 
ENDIF 
5 sALLOW LOOPING AFTER ERROR 
ENOSUB 


ENDTST 


MAINDEC -2Z-CVDVA-D 
, CVOVAD.P1i1 





12-JUL -84 


000004 
012767 
012767 


012767 


032777 
001002 


104042 


2 perro ar aire aera 


SEQ 49 


MACY11 3OAC1052) 12-JU-84 09:52 PAGE 51 
05:04 T13 TEST THAT XMITROY - TCSR 7 - IS SET BY INIT 


FF SSHSSSSSHASSSSSSSHSESHSSHHHESSESSSESESSEHEEEHSSEEEESEHEEEESEEEEEEEEE 
s¢TEST 13 
3 FE SSSASHHHKSSSSSSSSSHSESSHEHSEHASHEHOSSSEEHSEEEEESEEEEEEEEEEEEEEEEEEE 


000010 


175172 
175204 


175106 


175254 


TST13: 


$46: 


SCOPE 
MOV 
MOV 


RESET 


TEST THAT XMITRDY - TCSR 7 - IS SET BY INIT 


#10, $TIMES 3300 10 ITERATIONS 
#13, $TESTN 33SET TEST NUMBER IN APT MAIL BOX 
BGNSUB 
064%, $LPERR 
IF @XMITROY NOTSETIN @TCSR THEN 
at at 


sPESET SHOULD HAVE SET BIT 
i XMITROY DID NOT SET IN TCSR (AFTER RESE 
ERRHRD 42,HRESET.DIDNOT 


s ISSUE ANOTHER RESET 
BRESET 


42 


ENDIF 
sALLOW LOOPING ON ERROR 
LOOP 


L4 


MAINDEC -22-CVDVA-D MACY11 3OA(1052) 12-JUL-84 09:52 PAGE S2 SEO 50 
CVDVAD.P11. 12-JUL-84 05:04 T14 TEST THAT DATAINT - RCSR 15 - IS CLEARED BY INIT. 


1953 § PORORAEEEERESEEESEEEEESESERERESEESEESEESEEOEEEESESEEOSESEEEEESS 
1954 s*TEST 14 TEST THAT DATAINT - RCSR 15 - IS CLEARED BY INIT. 
1955 3} POSSE RESESEESESEESEESESEEEEEEDESEESEESEEDEESESEESEESEESEEEEES 
1956 004016 000004 TST14: 

1957 004020 012767 000010 175132 MOV #10, $TIMES 3300 10 ITERATIONS 

1958 004026 012767 000014 175144 MOV #14, $TESTN 33SET TEST NUMBER IN APT MAIL BOX 


1963 004034 BGNSUB 
1964 004034 012767 004042 175046 MOV 64%, $LPERR 

1965 004042 IF @DATAINT SETIN @RCSR THEN 
1966 004042 032777 100000 175210 BIT @DATAINT , @RCSR 

1967 004050 001402 BEQ $47 


1969 004052 ERRHRO 43, HRESET, DIDNOT 
1970 004052 104043 ERROR 43 


1972 sTESTING EFFECT OF RESET ON BIT 


1974 sDATAINT DID NOT — IN RCSR 
1975 Pha A FRESH STAR 


1978 004056 ENDIF 
1979 004056 $47: 

1960 004056 CKLOOP 
19861 004056 ENDSUB 
1962 004056 ENDTST 


1986 FF SSSSSSSSSSSSSSSSSSSSSESSSSSHSSSSSSSSSSSSSSESSSSSSSSHSEEEEEEEEES 





MAINDEC -Z2-CVOVA-D 


MACY11 


CvOVAD .P1i1 12-JU -84 05:04 


000004 
1991 004060 012767 
1992 004066 012767 


1996 004074 032767 
1997 004102 001004 


2000 004104 012767 
2001 004112 000411 


2008 004114 012767 


| 

| 

| 2011 004122 032777 
2012 004130 001402 


2016 004132 104044 


004122 


M4 
SEQ 51 
30A(1052) 12-JU-84 09:52 PAGE 53 
T15 TEST THAT RCVRACT - RCSR 11 - 15 CLEARED BY INIT 
PerTIIIIT it iiiitiiiiitiitiiiiiriiitiiiiiitiiiitiiiiiiitiiiiitititTT 
s@TEST 15 TEST THAT RCVRACT - RCSR 11 - 15 CLEARED BY INIT 
wr IiItiitt iit itiiiiiiiiiiiiiitiiiiiiiiiiiiiiiifiiiititiTiiititty 
TST15: 
175072 MOV #10, $TIMES 3300 10 ITERATIONS 
175104 MOV #15, $TESTN 33SET TEST NUMBER IN APT MAIL BOX 
IF @CABLE NOTSETIN $USWR THEN 
175116 BIT @CABLE , $USWR 
BNE $50 
; CAN'T TEST WITHOUT BERG OR H315. 
EXIT TST 
175046 MOV 01, $TIMES 
8R TST16 333EXIT THIS TEST 
ENDIF 
$50: 
BGNSUB 
174766 MOV 064% , $LPERR 
IF @RCVRACT SETIN @RCSR THEN 
175130 BIT @RCVRACT ,. BRCSR 
BEQ $51 
sRESET SHOULD HAVE CLEARED RCVRACT 
ERRHRD 44, HRESET, DIONOT 
ERROR 44 
sTESTING EFFECT OF RESET ON BIT 
sRCVRACT DID NOT CLEAR IN RCSR 
RESET 
ENDIF 
$51: 
sALLOW LOOPING ON ERROR 
CKL 
ENOSUB 
ENOTST 


s;ALLOW ANOTHER TRY 
BRESET 


N4 


SEQ S2 
MAINDEC -2Z-CVDVA-D ws 30AC1052) 12-JUL-84 09:52 PAGE 54 
CVOVAD .P1*. 12-JUL -84 05:04 T15 TEST THAT RCVRACT - RCSR 11 - 15 CLEARED BY INIT 

2032 j§ SPORES ESESESERESESESEERERESESEEDNEEEREREDESESESEDEEEESESEEEES 
2033 3@ THE FOLLOWING 4 TESTS VERIFY 
2034 ;@ THAT THE EIA SIGNALS ca BE TRANSMITTED 
2035 3# AND RECEIVED THROUGH THE CABLE 

2036 Wirritiitiitiiiiitiitiiirititiirtiitiritiitiititttiiitititi Titty) 
2037 

| 2038 
2039 

j sPCRORSRSESESESESEREREESEDEEEEEREES EEEEEDEESEEEEESESEEEEEESEEES 

2042 4 AS OTR SETS AND CL 
2043 :* THE (-FD) JUMPER MUST BE IN FOR THIS TEST. 
2044 j POSSESSES ERERSESEREREREEEEEEEEEEEEEEESESESEDEEESEEEEEESEEESESS 
2045 004136 000004 TST16: SC 
2046 004140 012767 000010 175012 MOV #10, $TIMES 3300 10 ITERATIONS 
2047 004146 012767 000016 175024 MOV #16, $TESTN 3;SET TEST ectonee A APT MAIL BOX 
2048 AN WE USE THE WRAPAROUND?? 
2049 004154 IF SCABLE «FRED NOTSETIN $USWR THEN 
2050 004154 032767 060000 175036 oe — oFRFD , $USWR 


2051 004162 001004 
2052 3 CAN'T TEST WITHOUT awe H315 


/ 2040 

|; 2041 s*TEST 16 TEST THAT CARDET yt amy CLEARS 
2053 ; OR WITH (-FD) JUMPER 
2054 : OR WITH (-FR) JUMPER OUT. 
2055 004164 EXIT TST 
2056 004164 012767 000001 174766 MOV 01, $TIMES 
2057 004172 000441 BR TST17 33sEXIT THIS TEST 
2058 004174 ENDIF 
2059 004174 $52: 
2060 
2061 ; OTR AND 
oer | ; CARDET ARE CONNECTED 
2064 ; BY THE 14315 OR EQUIV. 
2065 
2066 ; CLEAR 
2067 004174 
a4 004174 012767 004202 174706 MOV 064%, $LPERR 
2070 ; CLEAR OTR 
2071 004202 LET @RCSR := GRCSR CLR.BY @DTR 
2072 004202 042777 000002 175050 BIC @OTR,@RCSR 
2073 3; CARDET SHOULD FOLLOW 
2074 004210 IF @CARDET SETIN @RCSR THEN 
2075 004210 032777 010000 175042 BIT @CARDET , @RCSR 
2076 004216 001401 BEQ $53 
2077 ; CARDET DID NOT 
2076 004220 ERRHRD 45, ,.FORCE 
2079 004220 104045 ERROR 45 


; CLEAR WITH OTR 
IF 





MAINDEC - 22 -CVDVA -D 
CVDVAD .P11 


004222 


12- A -84 05 


012767 


052777 


032777 
001001 


104046 


012767 


042777 


032777 
001401 


104047 


004230 174660 


000002 175022 


010000 175014 


004256 174632 


000002 174774 


010000 174766 


$54: 


$55: 


BS 


MACY11 3OAC1052) 12-JU-864 09:52 
:04 T16 


PAGE 55 
TEST THAT CARDET SETS AND CLEARS 


MOV 


0644, SLPERR 


@OTR,@RCSR 


@CARDET , SRCSR 
$54 


46 


s CLEAR 
064% , $LPERR 


@OTR,GRCSR 


@CARDET , BRCSR 
$55 


47 


LET 


IF 


ENDSUB 


BGNSUB 


LET 


IF 


ENDSUB 
ENDTST 


SEQ 53 


3 SET OTR 
@RCSR := BRCSR SET.BY #OTR 


s CARDET SHOULD FOLLOW 
@CARDET NOTSETIN @RCSR THEN 


3 CARDET DIO NOT SET 
ERRHRD E 


46, »FORC 


3 WITH OTR 
IF 


3 CLEAR OTR 
@RCSR := BRCSR CLR.BY @DTR 


3 CARDET SHOULD FOLLOW 
@CARDET SETIN SRCSR THEN 


3; CARDET DID NOT 


ERRHRD 47, ,.FORCE 


; CLEAR WITH OTR 
IF 


MAINDEC -22-CvDVA -D 
CVDVAD .P11 12-JA -64 


000004 
004300 012767 
004306 012767 


004314 032767 
004322 001004 


004324 012767 
004332 000441 


004334 012767 


004342 042777 


004350 032777 
004356 001401 


004360 104050 


004362 012767 


004370 052777 


004376 032777 
004404 001001 


MACY11 


004342 


004370 


000002 


020000 


CS 


SEQ 54 
30A(1052) 12-AL-864 09:52 PAGE 56 
T16 TEST THAT CARDET SETS AND CLEARS 
FY J SOSHSSHSSOSSHSSSSESHSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSESSESEESESEEES 
3 J SSOHSSSSSSSSSSSSSSSHSSSSSSSSSSSSSSSHSSSSSSSSSSSSSHOESEESESESESES 
seTEST 17 TEST THAT CLRSEND SETS AND CLEARS 
:6 AS OTR SETS AND CLEARS 
3° (-F0) JUMPER MUST BE IN FOR THIS TEST TO WORK 
3 § SSHOSHSHSSSSHHSSE SESSSSSSSOSSSSSSSESSSSSSSSSSOSSSSSSSSSSESEEEEES 
TST17: SCOPE 
174652 MOV #10, $TIMES 33:00 10 ITERATIONS 
174664 MOV 017, $8TESTN 33SET TEST setae IN APT MAIL BOX 
AN WE USE THE WRAPAROUND?? 
IF OCABLE -FRFD NMOTSETIN S$USWR THEN 
174676 BIT OCABLE -FRFD, SUSUR 
BNE $56 
3 CAN’T TEST WITHOUT BERG OR H315 
EXIT TST 
174626 OV @1,STIMES 
BR TST20 s23EXIT THIS TEST 
ENDIF 
$56: 
3: OTR AND 
3s CLRSEND ARE CONNECTED 
; BY THE W315 OR EQUIV. 
3: CLEAR 
BGNSUB 
174546 MOV 064% , SLPERR 
; CLEAR OTR 
LET @RCSR := GRCSR CLR.BY @DTR 
174710 BIC @OTR,GRCSR 
; CLRSEND SHOULD FOLLOW 
IF @CLRSEND SETIN @RCSR THEN 
174702 BIT @CLRSEND . BRCSR 
BEQ $57 
3 CLRSEND DID NOT 
ERRHRD SO. .FORCE 
ERROR SO 
: CLEAR WITH OTR 
ENDIF 
$57: 
ENDSUB 
s SET 
BGNSUBS 
174520 MOV 064% , SLPERR 
; SET OTR 
LET @RCSR := BRCSR SET.BY @DTR 
174662 BIS @OTR,GRCSR 
3 CLRSEND SHOULD FOLLOW 
IF @CLRSEND NOTSETIN @RCSR THEN 
174654 


BIT @CLRSEND , BRCSR 
$60 


MAINDEC - 44 CvOVA-O 


CVOVAD .P 


104051 


012767 


042777 


032777 
001401 


104052 


004416 174472 


000002 174634 


020000 174626 


$60: 


$61: 


a Oe 


PAGE 57 
TEST THAT CLRSEND SETS AND CLEARS 


MACY11 mamas: staal -64 09:52 


12-JU -84 05:04 


ERROR 51 
ENDI 
ENDSUB 
; CLEAR 
BGNSUB 
MOV 064%, $LPERR 
LET 


BIC @OTR,@GRCSR 


s CLRSEND DID NOT SET 
ERRHRD 51, ,FORCE 


; WITH OTR 
F 


3 CLEAR OTR 
@RCSR := SRCSR CLR.BY @DTR 


s CLRSEND SHOULD FOLLOW 
@CLRSEND SETIN @RCSR THEN 


IF 
BIT @CLRSEND , BRCSR 
BEG $61 
3 CLRSEND DID NOT 
ERRHRD Se, ,FORCE 
ERROR Se 
; CLEAR WITH OTR 
ENDIF 
ENDSUB 


ENDTST 


MAINDEC -2Z-CVDVA-D 


CVOVAD.P11 


12-JU -84 


000004 
012767 
012767 


032767 
001004 


012767 
000441 


012767 
042777 


032777 
001401 


104053 


012767 


052777 


032777 


oa eee eee + ee Se ee ee 


ES 


SEQ 56 
MACY11 30A(1052) 12-JU-84 09:52 PAGE 58 
05:04 T17 TEST THAT CLRSEND SETS AND CLEARS 
METITiiTiitiiiiiiiiiiiiitiiiiiiiiiiiittiiiiiitiiiiiiititi titi ttty 
8 FE ASMSSHSSSSSSSSSESSSESSSSSSHSSSESSSSSSSSESSSSHSSEESEEEHHHEEEHEEEEEE 
:@TEST 20 TEST TMAT RING SETS AND hans “y 
:¢ AS RESEND SETS AND CLE 
36 THE (-FR)> JUMPER MUST BE IN “FOR THIS TEST. 
3 F SSSHSSSHSSSSESSSSHESSS FLEOSHHESSHSHESSSSHSSESHSEESESHEEEEEEEEEEEES 
TST20: SCOPE 
000010 174512 MOV #10, $TIMES 3300 10 ITERATIONS 
000020 174524 MOV #20, STESTN 33SET TEST NUMBER IN APT MAIL BOX 
3 CAN WE USE THE WRAPAROUND?? 
IF SCABLE -FRFD NOTSETIN $USWR THEN 
060000 174536 > anita 
3; CAN'T TEST WITHOUT BERG OR H315 
3; OR WITH (-FR) JUMPER OUT. 
EXIT TST 
000001 174466 MOV @1,$TIMES 
BR TST21 333EXIT THIS TEST 
ENDIF 
$62: 
3 REQSEND AND 
: RING ARE CONNECTED 
; BY THE H315 OR EQUIV. 
; CLEAR 
BGNSUB 
004502 174406 MOV 064¢ , $LPERR 
: CLEAR REQSEND 
LET @RCSR := SBRCSR CLR.BY @REQSEND 
000004 174550 BIC @REQSEND , @RCSR 
: RING SHOULD FOLLOW 
IF @RING SETIN @RCSR THEN 
040000 174542 BIT @RING , BRCSR 
BEQ $63 
: RING DID NOT 
ERRHRD 53. .FORCE 
ERROR 53 
, : CLEAR WITH REQSEND 
$63: 
ENDSUBS 
s SET 
BGNSUS 
004530 174360 MOV 064%, $LPERR 
3 SET REQSENOD 
LET @RCSR := BACSR SET.BY @REQSEND 
000004 174522 BIS @REQSEND , @RCSR 
: RING SHOULD F 
IF @RING NOTSETING oRCSR THEN 
040000 174514 BIT RING, BRCSR 





eee a eC - S — 


a a nc a a cr 


inpcsenciegeinsibelataeriniaamereniapanrectesnianiarditts —_——— 


FS 


SEQ 57 
MAINDEC -2Z-CVOVA-D MACY11 3OAC1052) 12-JUL-84 09:52 PAGE 59 
CVOVAD .P11 12-JUL-84 05:04 T20 TEST THAT RING SETS AND CLEARS 


2275 004544 001001 BNE $64 

2276 s RING DID NOT SET 
2277 004546 ERRHRD 54, ,FORCE 
2278 004546 104054 ERROR 54 


2280 a WITH REQSEND 
2282 004550 $64: 


2285 s CLEAR 
2287 004550 012767 004556 174332 MOV 064%, $LPERR 


2289 s CLEAR REQSEND 

2290 004556 LET @RCSR := GRCSR CLR.BY @REQSEND 
2291 004556 042777 000004 174474 BIC @REQSEND , BRCSR 

2292 s RING SHOULD FOLLOW 

2293 004564 IF @RING SETIN SRCSR THEN 

2294 004564 032777 040000 174466 BIT @RING ,BRCSR 

2295 004572 001401 BEQ $65 

2296 3 RING DIO NOT 

2297 004574 ERRHRD 55. .FORCE 

2298 004574 104055 ERROR 55 


2300 ; CLEAR WITH REQSEND 
2301 004576 ENDIF 
2302 004576 $65: 


ENDSUB 
2304 004576 ENDTST 





MAINDEC -22-CVDVA-D 
CVOVAD .P11 


12-JU-84 05 


000004 
012767 
012767 


032767 
001004 


012767 
000441 


012767 


042777 


032777 
001401 


104056 


012767 


052777 


032777 
001001 


006910 
00002 


000010 


004670 


000010 


002000 


MACY11 30A( 1052) 
:04 


174352 
174364 
174376 


174326 


174246 


174410 


174402 


174220 


174362 


174354 


GS 


SEQ 58 
12-JU.-84 09:52 PAGE 60 
T20 TEST THAT RING SETS AND CLEARS 
§ FPCROREEESEEDEROEEEESEEEEEESEEEEESEOEESESOEEEERESEEESEEEEEEEEEES 
MPrTIIiiiiiiiiiitiiiiiiiiiiiiiiiiiiiiiitiiiiiiiiititiiiitiitiiitt 
s*TEST 21 TEST THAT SECREC SETS AND CLEARS 
;¢ AS SECXMIT SETS AND CLEARS 
MMT IIiiiiiitiitiiriiiiiiiiiiiiiiiiiiiiiiitiiiitiiiiitititi titi itty 
TST2i: 
MOV #10, $TIMES 3300 10 ITERATIONS 
MOV #21, ¢TESTN 33SET TEST NUMBER IN APT MAIL BOX 
; C USE THE WRAPAROUND ?? 
IF eCABLE NOTSETIN $USWR THEN 
BIT OCABLE , $USWR 
BNE $66 
3; CAN'T TEST WITHOUT BERG OR H315. 
EXIT TST 
MOV @1,$TIMES 
BR TST22 333sEXIT THIS TEST 
ENDIF 
$66: 
3; SECXMIT AND 
3s SECREC ARE CONNECTED 
; BY THE H315 OR EQUIV. 
s CLEAR 
BGNSUB 
MOV 064%, $LPERR 
; CLEAR SECXMIT 
LET @RCSR := SRCSR CLR.BY @SECXMIT 
BIC @SECXMIT ,@RCSR 
: SECREC SHOULD FOLLOW 
IF @SECREC SETIN @RCSR THEN 
BIT @SECREC , @RCSR 
BEQ $67 
3: SECREC DID NOT 
ERRHRD 56, .FORCE 
ERROR 56 
o CLEAR WITH SECXMIT 
$67: 
ENDSUB 
3s SET 
BGNSUB 
MOV 064%, $LPERR 
: SET SECXMIT 
LET @RCSR := BRCSR SET.BY @SECXMIT 
BIS @SECXMIT,@RCSR 
; SECREC SHOULD FOLLOW 
IF @SECREC NOTSETIN @RCSR THEN 


BIT @SECREC, @RCSR 
$70 


s SECREC DIO NOT SET 





MAINDEC -2Z-CVDVA-D 
CVDVAD.P11 


12-JU-84 0 


104057 


012767 


042777 


032777 
001401 


104060 


aw 30A( 1052) an -JU-84 09:52 PAGE 6 


H5 


SEQ 59 


TEST THAT SECREC. SETS AND CLEARS 


ERROR 57 
$70: 
+ CLEAR 
004716 174172 MOV 064%, $LPERR 
000010 174334 BIC @SECXMIT,@RCSR 
002000 174326 BIT @SECREC ,@RCSR 
BEQ $71 
ERROR 60 
$71: 


ERRHRD 57, ,FORCE 


3 WITH SECXMIT 
IF 


; CLEAR SECXMIT 
LET @RCSR := BRCSR CLR.BY @SECXMIT 


s SECREC SHOULD FOLLOW 
IF @SECREC SETIN @RCSR THEN 


; SECREC DID NOT 
ERRHRD 60, .FORCE 


= CLEAR WITH SECXMIT 


ENDSUB 
ENDTST 
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IS 


SEQ 60 
12-JUL-84 09:52 PAGE 62 
TEST THAT SECREC SETS AND CLEARS 

8 FE SSSSSSSSSSSSSSHESSHSSSSSSSSSESSSSSSSEHSSSSSESEEESEEESEEEEEEEEEEE 
2 § SSSSSESASSSSSSSSSSSSSSSEASSSSSSSSSSSSSSHSEHOSSEOHEEEESEEEEEEEEEEESD 
:eTEST 22 ulEST THAT DATAINT CRCSR-15) SETS 
0 N OTR CHANGES STATE 
ie AMD THAT DATAINT TS CLEARED AFTER READING RCSR 
ie NOTE OTR IS TIED TO BOTH CARDET AND CLRSEND BY THE H315S 
on THE (-FD) JUMPER MUST BE IN FOR THIS TEST. 
8S SSSSSSSS}SSSHSSSSSSSSSSHSSSSHSHSSSHESSSSSSESSESSESEEESEEEEEEEEEEES 
TST22: SCOPE 

MOV #10, $TIMES +300 10 ITERATIONS 

MOV 022. $TESTN +3SET TEST NUMBER IN APT MAIL BOX 

; CAN WE USE THE WRAPAROUND?? 
IF @CABLE+FRFD NOTSETIN $USWR THEN 


BIT @CABLE +FRFD, $USWR 
$72 


s CAN'T TEST WITHOUT nae OR H315 
3 OR WITH (-FD) JUMPER OUT. 
EXIT TST 


MOV #1, $TIMES 
BR TsT23 333EXIT THIS TEST 
ENDIF 


$72: 
s;MAKE SURE NOTHING UNEXPECTED HAPPENS 
@PR7,-C(SP) 33PUT NEW PS ON STACK 
MOV 064%, -(SP) 33sPUT NEW PC ON STACK 
RTI 33:POP NEW PC AND PS 
64%: 
sREAD TWICE - CLEARS 
BGNSUB 
MOV 065% , SLPERR 
; CLEAR OTR 
LET @RCSR := ARCSR CLR.BY @DTR 
BIC @O0TR,@RCSR 
sWAIT 1 MILLI-SEC FOR CABLE 
WAITMS 1 
MOV RS, -(SP) 
MOV #1,-(RS) 
JSR PC, WAIT 
MOV (SP)+, RS 
3; READ RCSR - TO CLEAR DATAINT 
LET R3 := SRCSR 
MOV @RCSR,RS 
3: READ RCSR AGA 
IF @OATAINT SETIN @RCSR THEN 
BIT @DATAINT,@RCSR 
BEQ $73 
3 READING RCSR DID NOT CLEAR DATAINT 
ERRHRD 61,EDATAINT 
ERROR 61 
ENOIF 
$73: 


ENOSUB 
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SEQ 61 


ow te 09:52 PAGE 


$74: 


$75: 


$76: 


63 
TEST THAT DATAINT (RCSR-15) SETS 
s OTR SETTING SETS DATAINT 
BGNSUB 
MOV 064%, $LPERR 


sSET OTR 
LET @RCSR := @RCSR SET.BY ODTR 


IF @DATAINT NOTSETIN @RCSR THEN 


BIS @OTR,@RCSR 

BIT — -@RCSR 
sSETTING OTR DID a SET DATAINT 
ERRHRD 62,, E2DAT 


ERROR 62 
ENOIF 


IF @DATAINT SETIN @RCSR THEN 
BIT — »@RCSR 


sREADING RCSR DID NOT CLEAR DATAINT 
ERRHRD 63,EDATAINT 


ENDIF 
ENOSUB 
s OTR CLEARING SETS DATAINT 
BGNSUB 
MOV 064%, SLPERR 


ERROR 63 


;CLEAR OTR 
LET @RCSR := @RCSR CLR.BY @OTR 


IF @DATAINT NOTSETIN @RCSR THEN 


BIC @OTR,@RCSR 

BIT — »@RCSR 
sCLEARING DTR DID NOT SET DATAINT 
ERRHRD 64, ,E2DATA 


ERROR 64 
ENDIF 


ENOSUB 
ENOTST 
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SEQ 62 
PAGE 64 
TEST THAT DATAINT (RCSR-15) SETS 
§ POROSEEEESEESEEEDEESESEEDEESEESEESEESEDSESEESEESESEESESESESEESS 
f SPOSOORESESEDEESEEDEDEEEEESEESEEEEESESEEESESEESEESESEESEESEEEEES 
s*TEST 23 TEST THAT DATAINT SETS WHEN RING SETS 
3% AND THAT DATAINT DOES NOT SET WHEN RING CLEARS 
34 THE (-FR) JUMPER MUST BE IN FOR THIS TEST. 
3} POOOSESEEREDRESEESEDEEEEEERESEEEEEEEESESEESEESEESESEEEEESEEEEES 
TST23: SCOPE 
MOV #10, ¢TIMES :300 10 ITERATIONS 
MOV #23, $TESTN 33SET TEST NUMBER IN APT MAIL BOX 
3 CAN WE USE THE WRAPAROUND?? 
IF @CABLE+FRFD NOTSETIN $USWR THEN 


BIT no sSUSWR 


3 CAN'T TEST WITHOUT BERG OR H315 
+ OR WITH (-FR) JUMPER OUT. 
EXIT TST 


MOV #1, $TIMES 
BR TST24 333EXIT THIS TEST 
ENDIF 


$77: 
3NO INTERRUPTS 
@PR7,-CSP) 33PUT NEW ®S ON STACK 
MOV 064%, -(SP) 33PUT NEW PC ON STACK 
RTI 33:POP NEW PC AND PS 
64%: 
;START OFF WITH EVERYTHING CLEAR 
BGNSUB 
MOV 065% , $LPERR 
;CLEAR RING 
LET @RCSR := @RCSR CLR.BY @REQSEND 
BIC @REQSEND , BRCSR 
sWAIT 1 MILLI-SEC FOR CABLE 
WAITMS 1 
MOV RS, -(SP) 
MOV #1,-C(RS) 
JSR PC WAIT 
MOV (SP)+,RS 
sREAD ONCE 
LET R3 := @RCSR 
MOV @RCSR RS 
sREAD TWICE 
IF @DATAINT SETIN @RCSR THEN 
BIT @DATAINT , @RCSR 
6EQ $100 
sREADING RCSR DID NOT CLEAR DATAINT 
ERRHRD 65, EDATAINT 
ERROR 65 
ENOIF 
$100: 
ENDSUS 
F SET RING --> SET DATAINT 
BGNSUB 
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$102: 


12-JUL -64 
3 


L5 


SEQ 63 
09:52 PAGE 65 
TEST THAT DATAINT SETS WHEN RING SETS 
MOV 064%, $LPERR 
3WE ARE SETTING RING 
3; SET RING 
LET @RCSR := BRCSR SET.BY @REQSEND 
BIS @REQSEND , SRCSR 
sWAIT 1 MILLI-SEC FOR CABLE 
WAITMS 1 
MOV RS, -(SP) 
MOV #1, -CRS) 
JSR PC WAIT 
MOV CSP )+,RS 
IF @DATAINT NOTSETIN @RCSR THEN 
BIT @DATAINT,@RCSR 
BNE $101 
sSETTING RING DID NOT SET DATAINT 
ERRHRD 122,. E2DATA 
ERROR 122 
ENDIF 
ENDSUB 
sCLEAR RING CAUSES NO CHANGE IN DATAINT (CLEAR) 
BGNSUB 
MOV 064% , $LPERR 
sCLEAR RING 
LET @RCSR := BRCSR CLR.BY @REQSEND 
BIC @REQSEND , BRCSR 
sWAIT 1 MILLI-SEC FOR CABLE 
WAITMS 1 
MOV RS, -(SP) 
MOV #1, -CRS) 
JSR PC WAIT 
MOV (SP )+ RS 
IF @OATAINT SETIN @RCSR THEN 
BIT @DATAINT ,@RCSR 
BEQ $102 
sCLEARING RING SET DATAINT 
ERRHRD 123, CLRRNG 
ERROR 123 
CNDIF 
ENDSUB 
EXIT 3SKIP AROUND MESSAGE 
BR TST24 333EXIT THIS TEST 
ENDTST 
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SEQ 64 
12-AL-84 09:52 PAGE 66 
T23 TEST THAT DATAINT SETS WHEN RING SETS 
MmitIiririiitiiiiiiiiiiiiiiiiiiiitiiiitiiiiiiittiiiiitiii titi t iT) 
} FE PCOOMOSESESRESSEESESEEESESEESEESSESEEEEEOESEEESEESESEEEEEESESESS 
s@TEST 24 TEST THAT DATAINT SETS WHEN SECREC CHANGES STATE 
fF OSSOSOSESEESESESSEEESESESEESEHSSEEESEESESEEEEEEEEEEEEEESESEEEEE 
TST24: SC 
MOV #10, $TIMES 3300 10 ITERATIONS 
MOV 024, $TESTN 33SET TEST NUMBER IN APT MAIL BOX 
: CAN WE USE THE WRAPAROUND?? 
If @CABLE NOTSETIN $USWR THEN 
BIT @CABLE , SUSUR 
BNE $103 
; CAN'T TEST WITHOUT BERG OR W315. 
EXIT TST 
MOV @1,8TIMES 
BR 333EXIT THIS TEST 
ENDIF 
$103: 
3NO INTERRUPTS 
MOV @PR7, -( SP) 33PUT NEW PS ON STACK 
MOV 064%, -(SP) :3;PUT NEW PC ON STACK 
RTI 33:POP NEW PC AND PS 
64%: 
;START FRESH 
;CLEAR SECREC 
LET @RCSR := BRCSR CLR.BY @SECXMIT 
BIC @SECXMIT , @RCSR 
LET R3 := @RCSR 
MOV @RCSR RS 
;SET SECREC --> DATAINT SET 
BGNSUB 
MOV 065%, SLPERR 
3SET SECREC 
LET @RCSR := @RCSR SET.BY @SECXMIT 
BIS @SECXMIT, @RCSR 
sWAIT 1 MILLI-SEC FOR CABLE 
WAITMS 1 
MOV RS, -CSP) 
MOV @1,-CRS) 
JSR PC WAIT 
MOV (SP )+,R5 
IF @DATAINT NOTSETIN @RCSR THEN 
BIT @DATAINT , @RCSR 
BNE $104 
sSETTING SECREC DID NOT SET DATAINT 
ERRHRD 124,, E2DATA 
ERROR 124 
ENDIF 
$104: 
ENDSUB 


sCLEAR SECREC --> DATAINT SET 


“htid De Mecicbblded ne nA BE 


a 
| 
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$105: 


12- JUL -84 
24 TEST THA 


NS 


064%, $LPERR 


@SECXMIT,@RCSR 


@DATAINT , @RCSR 
$105 


125 


SEQ 65 


PAGE 67 
T DATAINT SETS WHEN SECREC CHANGES STATE 


;CLEAR SECREC 
LET @RCSR := BRCSR CLR.BY @SECXMIT 


sWAIT 1 MILLI-SEC FOR CABLE 
WAITMS 1 


IF @DATAINT NOTSETIN @RCSR THEN 
sCLEARING SECREC DID NOT SET DATAINT 
ERRHRO 125,, E2DATA 

ENDIF 


ENDSUB 
ENDTST 


A 
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PAGE 68 
TEST THAT DATAINT SETS WHEN SECREC CHANGES STATE 


§ J SSHOSSSSHSSSSSSOSSOSSSSOSSOSSOSSSSSSSSSSSSSSSESSSESSSESEEEEEEED 
§ J SCOSSSSSSSSSSSHSSSSSSSSSSSSSSSSSSSSSSSSSSHSSSSSSSOSSESSESEEESESEE 


2seTEST 25 TEST THAT XMIT RDY - TCSR 7 - CLEARS 
iT) WHEN TBUF IS LOADED WITH A CHARACTER 
:° AND THAT IT SETS WITHIN A REASONABLE AMOUNT OF TIME. 
t3 SSSNSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSHSSSSSSSSSSSSSESSESEEEES 
TST25: 
01, 8TIMES 3:00 1 ITERATION 
MOV 025, $TESTN 33SET TEST NUMBER IN APT MAIL BOX 


s THIS TEST P. ‘BREAK OR HALT’ SINSATIVE. 
IF @APTENV SETIN SENV THEN 
BIT AP TENV , SENV 
$106 


BEQ 
EXIT TEST 
MOV #1,¢TIMES 
BR TST26 33sEXIT THIS TEST 
ENDIF 
$106: 
BGNSUB 
MOV 0644, SLPERR 
3 LOAD TOUF WITH ONE CHARACTER 
3 WAIT FOR READY TO SET 
3s (SHOULD BE VERY SHORT WAIT 
3s SINCE UART DOUBLE BUFFERS ITS INPUT) 
sSEND A CHARACTER 
LET STBUF :B= 60 
CLRB aTeuUF 
sWAIT A MAXIMUM 
3:0F SO MSEC FOR 
sXMIT ROY TO SET IN TCSR 
CALL TIMER IN <@1000, OXMITROY. TCSR, @SET> 
MOV RS, -( SP 
MOV @SET, -( RS) 
MOV TCSR, -(RS) 
MOV OXMITRDY, -( RS) 
MOV #1000, - 
JSR my 
MOV (SP )- RS 
; TIMER RETURNS AN ERROR IF BIT DID 
s3NOT MEET CONDITION WITHIN TIME LIMIT 
IF .ERROR THEN 
ecc $107 
sXMIT ROY DID NOT SET IN TCSR 
ERRHRD 66, .D0IDNOT 
ERROR 66 
ENDIF 
$107: 
ENDSUB 
BGNSUB 


MOV 0644, SLPERR 
; LOAD TBUF WITH A SECOND CHARACTER 
; CHECK IMMEDIATELY THAT XMITROY IS CLEAR 
; AND THEN WAIT FOR IT TO SET 
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09:52 PAGE 69 
TEST THAT XMIT RDY - 


NoP 


OXMITROY,STCSR 
$110 


67 


PC, TIME 
(SP )> RS 


$111 


70 


TCSR 7 


- CLEARS 


SEQ 67 


NO —— CHARACTER 


sSE 
Let aTeur :B+ 00 


s GIVE IT TIME TO CLEAR 
5 xMI Len a SHOULD HAVE CLEARED UPON 


OF A CHARACTER 


; RECEIPT 
IF OXMITROY SETIN STCSR THEN 


s XMITROY DID NOT CLEAR IN TCSR 
ERRHRD 67, ,0IDNOT 


ENDIF 


sWAIT A MAXIMUM 
s0F SO MSEC FOR 
sXMIT ROY TO SET IN TCSR 
CALL TIMER IN <@]000, OXMITRDY, TCSR,OSET> 


IF .ERROR THEN 


sXMIT RDY DID NOT SET IN TCSR 
ERRHRD 70, .DIDNOT 


ENDIF 


ENDSUB 


ENDTST 


MAINDEC -2Z-CvDVA-D 
CVOVAD .P11 12-JU -84 05 


000004 
005744 012/67 
005752 012767 


005760 052777 


005766 012767 


005774 105077 


000010 
000026 


177777 
173246 
000200 
001000 
003446 


006042 


MACY11 3SOA( 1052) 
:04 


173206 
173220 


173276 


173114 


173046 
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12-AL-84 09:52 PAGE 70 
T25 TEST THAT XMIT RDY - TCSR 7 - CLEARS 


8 FE SSSHOSSHSSSSHFSSSSSSSSSSSSSSSSSSSSSESSSSSSESSSOSSSEEEHSESEEEEEEES 
8 § SSHSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSHSSSSSHSSSSSSSESESSEHESSESEEES 


seTEST 26 TEST THAT OUTPUTTING A CHAR FROM TBUF (WITH MAINT SET) 


:e RESULTS IN RCVRDONE SETTING WITHIN A REASONABLE AMOUNT OF TIME 
a AND THAT RESET CLEARS THE BIT. 
jf OCSCCOREREESOOESESESESOEEESESEOESESESEESESESESESESESESESOOSESESS 
TST26: SCOPE 
MOV #10, STIMES 3300 10 ITERATIONS 
MOV 026, $TESTN 3sSET TEST NUMBER IN APT MAIL BOX 


s SET THE MAINTENANCE BIT 
LET STCSR : :* STCSR SET.BY OMAINT 
BIS @MAINT ,@TCSR 


BGNSUB 
MOV 064%, SLPERR 
+ SEND A CHARACTER AND LET IT WRAP AROUND 


LET STBUF :B= 60 


CLRB eTeuUF 
3s WAIT A MAXIMUM OF SO MSEC 
3 a DONE TO SET IN 
3 
CALL TIMER IN <#1000, ORCVRDONE .RCSR, @SET> 
MOV RS, -(SP) 
MOV @SET,-CRS) 
MOV RCSR, -CRS) 
MOV » - CRS) 
MOV #1000, -(R5) 
JSR ote 
MOV (SP)+,RS 
sOION'T SET IN TIME 
IF .ERROR THEN 
BCC $112 
s RCVRDONE DID NOT SET IN RCSR 
ERRHRD 71, .D0IDNOT 
ERROR 71 
ENDIF 
$ile: 
ENOSUB 
BGNSUB 


MOV 064%, SLPERR 
s NOW THAT IT IS SET SEE IF IT CAN BE RESET 
; THIS ALSO WILL CLEAR THE MAINT. BIT 
BRE SET 
RESET 


IF @RCVRDONE SETIN @RCSR THEN 


ee +e ee eee ee ae —_-——- ~ 
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12-JU.-84 09:52 PAGE 71 a 
T26 TEST THAT OUTPUTTING A CHAR FROM TBUF (WITH MAINT SET) 


BIT @RCVROONE , BRCSR 


BEQ $113 

3 RCVRDONE DID NOT RESET IN RCSR. 

ERRHRD 72, ,0ID0NOT 
ERROR 72 

ENOIF 
$113: 
ENDSUB 
ENDTST 


F6 


SEQ 70 

MAINDEC -27Z-CVDVA-D weves 30A( 1052) 12-JNL-84 09:52 PAGE 72 
CVOVAD .P11 12-. AL -84 05:04 T26 TEST THAT OUTPUTTING A CHAR FROM TBUF (WITH MAINT SET) 

2838 BE SSSSSSSSSHSSSSSSSHSSSESHSSESSSSSSSSESESSESSSESEEESESEEEHEEEEEEEEEE 

2839 8s SSSHOSSSSSSSSSSSSSSSHSSSSSSHSSESSHSSSESSSESSSSEESEESESEEEEEEEEEEEEEEE 

se@TEST 27 TEST THAT RCVROONE IS CLEARED BY READING RBUF 

2641 8 F SSHSESSSSSSSSSESHSSSSSSSSSSSSESSSHSHSSESESSESSEEEHSESESEHEESEEEEEEEE 

2842 006056 000004 TST27: SCOPE 

2843 006060 012767 000010 173072 MOV #10, $TIMES 3300 10 ITERATIONS 

2844 006066 012767 000027 173104 MOV 27, $TESTN 33SET TEST NUMBER IN APT MAIL BOX 

2645 

2846 3 SET MAINT. BIT 

2847 006074 LET aTCsR ; :* @TCSR SET. BY OMAINT 

2848 006074 052777 000004 173162 BIS @MAINT ,STCSR 

2849 006102 BGNSUB 

2850 006102 012767 906110 173000 MOV 064%, $LPERR 

28651 3: OUTPUT A CHARACTER WITH MAINTENANCE 

a s SET, AND WAIT FOR XMITRDY TO SET. 

26 

2654 3 OUTPUT A ar 

28655 006110 LET aTBUF :B= 0 

2856 006110 105077 173154 CLRB STBUF 

28657 3 WAIT MAXIMUM OF 1000 MSEC 

2658 s FOR RCVRDONE TO SET IN 

28659 3; RCSR 

2860 006114 CALL TIMER IN <#1000, ORCVRDONE .RCSR, @SET> 

2661 006114 010546 MOV RS, -(SP 

28662 006116 012745 177777 MOV @SET,-C(RS) 

28663 006122 016745 173132 MOV RCSR.-C(RS) 

2864 006126 012745 000200 MOV @RCVRDONE , - (RS) 

28665 006132 012745 001000 MOV #1000, -(RS) 

28666 006136 004767 0033352 JSR PC, TIME 

2867 006142 012605 MOV (SP)+,RS 

2868 ; DIO IT BECAME READY? 

2869 006144 IF .ERROR THEN 

2870 006144 103001 Bcc $114 

2871 sRCVROONE DID NOT SET IN RCSR 

2672 006146 ERRHRD 73.. OIDNOT 

2673 006146 104073 ERROR 73 

2874 006150 ENDIF 

2875 006150 $114: 

on 006150 ENDSUB 

2878 s NOW THAT IT IS SET LETS SEE IF READING THE 

th 3: BUFFER CLEARS RCVRDONE. 

2681 sREAD BUFFER 

2882 006150 LET RO :B= SRBUF 

2683 006150 117700 173106 MOvB @RBUF RO 

2885 006154 IF @RCVROONE SETIN @RCSR THEN 

2686 006154 032777 000200 173076 BIT @RCVRDONE , BRCSR 

2887 006162 001401 BEQ $115 

2888 yRCVRDONE DID NOT CLEAR IN RCSR 

2889 006164 ERRHRD 74,D0IDNOT 

2890 006164 104074 ERROR 74 

2691 006166 ENOIF 

2892 006166 
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T27 TEST THAT RCVROONE IS CLEARED BY READING RBUF 


§ FE SSSSSSSSSSSSSSOSSEESSSSSESSSEHSSSEEESESSESSSSSEHESSEEEEEEEESEEESEEEE 
PE SEREEHASEHEHEAHDEAGHHEHERALRESHOHRHAHEHLACRABSARTASHHAESSHHEHEHEREESE 


SEQ@ 71 


s@TEST 30 TEST THAT RCVRACT - RCSR 11 - SETS 
TT) WHEN A START BIT IS RECEIVED AND 
3¢ CLEARS WHEN RCVRDONE - RCSR 7 - SETS 
PwLIIITIcCifiiiiiitiiriviiiiiiiiiiiiiiiiiiitiiiiiitiiiiiiitiiiiitt yy 
TST30: 
000010 172762 MOV #10, ¢TIMES 3300 10 ITERATIONS 
000030 172774 MOV #30, $TESTN 33SET TEST NUMBER IN APT MAIL BOX 
3s THIS TEST IS ‘BREAK OR HALT’ SINSATIVE. 
IF @APTENV SETIN SENV THEN 
000001 173002 BIT @APTENV , SENV 
BEQ $116 
EXIT TEST 
000001 172736 MOV #1, $TIMES 
BR TST31 333EXIT THIS TEST 
ENDIF 
$116: 
LET @TCSR := STCSR SET.BY @MAINT 
000004 173032 BIS @MAINT ,STCSR 
LET RO := @CLR 
000000 MOV @CLR RO 
LET R1 := 60 
CLR Ri 


sLOAD A CHARACTER INTO TBUF 
sWAIT FOR RCVRACT TO SET 


s;SEND A CHARACTER 
LET aTeuF :B= 00 


173024 CLRB aTBUF 
REPEAT 
$117: 
IF @RCVRACT SETIN @RCSR THEN 
004000 173006 BIT @RCVRACT , SRCSR 
BEQ $120 
LET RO := @SET 
177777 MOV @SET,RO 
ELSE 
aR $121 
$120: 
LET R1 :* Rl «+ @1 
INC Ri 
ENDIF 
$121: 
UNTIL RO EQ @SET OR R1 HI MAX 
177777 cmp RO, OSET 
BEQ $122 
000124 CMP R1,MAX 
BLOS $117 
$122: 
IF Rl HI MAX THEN 
000116 CMP Ri, MAX 
BLOS $123 


sIT NEVER SET 
sRCVRACT DID NOT SET IN RCSR. 





a ES — 
r 


MAINDEC -22-CvDVA-0 
CvOVAD P11 


EELESPRESPEERELT ET Et 


MACY11 


12-JU -64 05:04 


104075 
017700 
012767 
000440 


172746 


sCHECK FOR TIMING OF RCVRAC7. 
VS RCVRDONE SETTING 


SEQ 72 


ERRHRD 75,, OIONOT 
LET RO := @RBUF ; CLEAR BUFFER 
EXIT TEST 


32sEXIT THIS TEST 
ENDIF 


CLEARING 


WHILE @RCVRACT SETIN @RCSR DO 


IF @RCVRDONE SETIN @RCSR THEN 


IF @RCVRACT SETIN @RCSR THEN 


sRCVROONE AND RCVRACT 
;B80TH SET 
ERRHRD 76, DONEACT 


sNO USE CONTINUING 
EXIT TST 


333EXIT THIS TEST 
END 


ENDIF 
ENDOO 


sRCVRACT = O NOW. 
IF @RCVRDONE NOTSETIN @RCSR THEN 


sRCVRDONE DID NOT SET IN RCSR 
ERRHRD 77,,DIDNOT 


3;SET IT BACK. 
NOIF 


be 
3OA(1052) 12-JN-84 09:52 PAGE 7 
T30 TEST THAT RCVRACT - RCSR 11 - SETS 
ERROR 75 
MOV SRBUF RO 
172636 MOV #1, ¢TIMES 
BR TST31 
$123: 
$124: 
172726 BIT @RCVRACT , @RCSR 
BEQ $125 
172716 BIT @RCVRDONE , BRCSR 
BEQ $126 
172706 BIT @RCVRACT ,BRCSR 
BEQ $127 
ERROR 76 
172574 MOV @1,¢TIMES 
BR TST31 
$127: 
$126: 
BR $124 
$125: 
172662 BIT @RCVROONE , SRCSR 
BNE $130 
ERROR 77 
$130: 


sTEST THAT READING THE RECEIVER 
sBUFFER CLEARS RCVRDONE 


16 


MAINDEC-22-CVDVA-D MACY11 3OA(1052) 12-JUL-84 09:52 PAGE 75 8 75 
CVDVAD.P11  12-JUL-84 05:04 130 TEST THAT RCVRACT - RCSR 11 - SETS 
3006 ;READ CHAR. 
$007 006402 LET RO := GRBUF 
$008 006402 017700 172654 MOV —s BRBUF,RO 
3010 006406 IF @RCVRDONE SETIN T 
3011 006406 032777 000200 172«44 BIT  — ORCVRDONE, BRCSR 2 
$012 006414 001401 8EQSs«8:131 
RCVRDONE DID NOT CLEAR IN RCSR 
3014 006416 ERRHRD 100, ,OIONOT 
3016 006420 ENDIF 
3017 006420 $131: 
3018 
3019 006420 EXIT 
3020 006420 000401 BR TST31 sa3€XIT THIS TEST 
3021 006422 070000 MAX: 70000 


3023 006424 ENDTST 


3015 006416 104100 ERROR 100 








| 
| 


MAINDEC -2Z-CVDVA-D 
| CVOVAD.P11 


0064 34 


12- JUL -84 


000004 
012767 
012767 


012767 


105077 


010546 
012745 
004767 
012605 
105077 


010546 
012745 
004767 
012605 


017704 
032704 
001005 


104101 


012767 
000456 


sp 


a 30A(1052) 12-JU-84 09:52 PAGE 7 
05:04 T30 TEST THAT RCVRACT - © acse il - SETS 


000010 172524 
000031 172536 


006450 172440 
172614 
002000 
003264 
172574 
002000 
003244 


172546 


000001 172426 


SEQ 74 


§ SPCOOOSESERESEEEEEESEEESESEOEEEEESEEESEEEESEEHEESEEOEEESESESEES 
§ J SPORES RESEESEESEESEEESEEESEEESEEESEEESEESEESEEESEEESEEESEES 
TEST THE OVERRUN BIT - RBUF 14 


FF SSHSSSSSSSSSSSSSSSSSSSSSSSSESSSSESSESSSESSSSSSSEESESESEEHSEEEEEEES 


s*TEST 31 

TST31: SCOPE 
MOV 
MOV 


MOV 


g 


$132: 


#10, ¢TIMES 
#31, $TESTN 


064%, $LPERR 


3300 10 ITERATIONS 
33SET 


TEST NUMBER IN APT MAIL BOX 
BGNSUB 


sOUTPUT 2 CHARACTERS WITH 
sAMPLE DELAYS BETWEEN FOR RECEPTION. 
sTHIS SHOULD AN CAUSE OVERRUN ERROR. 


101 


#1,$TIMES 
TST32 


sOUTPUT 1 ee 
LET aTeUF :B= 60 


3GO AWAY FOR 1024. i4 SEC 
WAITMS 1024. 


sOUTPUT -+* CHARACTER 
LET aTBUF :B= 00 


sLET OVERRUN HAPPEN 
WAITMS 1024. 


sREAD BUFFER AND ERROR BITS 
LET R4 := @RBUF 


sIT OION'T SET * 
F @ORERR NOTSETIN R4 THEN 


sORERR DID NOT SET IN RBUF 
ERRHRD 101, ,DIDNOT 


sNO USE COMPOUNDING ERRORS 
EXIT TST 


333EXIT THIS TEST 
ENDIF 


ENDSUB 
sNOW SEE IF ERROR BIT SET WITH OVERRUN ERROR: 





MAINDEC -2Z-CVDVA-D 

| CVOVAD.P11 12-JUL -84 
3081 006534 
3062 006534 012767 
3083 006542 
3084 006542 032704 
3085 006546 001005 
3086 
3087 
3088 006550 
3089 006550 104102 
3090 
3091 
3092 
3093 006552 
3094 006552 012767 
3095 006560 000445 
3096 006562 
3097 006562 
3098 006562 
3099 
3100 006562 
3101 006562 012767 
3102 
3103 
3104 006570 
3105 006570 032777 
3106 006576 001002 
3107 
3108 
3109 006600 
3110 006600 104103 
3111 
3112 006602 
3113 006602 000432 
3114 006604 
3115 006604 
3116 006604 
3117 
3116 006604 
3119 006604 012767 
3120 
3121 
3122 
3123 006612 
3124 006612 105077 
3125 
3126 006616 
3127 006616 010546 
3126 006620 012745 
3129 006624 004767 
3130 006630 012605 
3131 
3132 006632 
3133 006632 032777 
3134 006640 001405 
3135 
3136 006642 





K6 


SEQ 75 


MACY11 3OAC1052) 12-JU-84 09:52 PAGE 77 
05:04 T31 TEST THE OVERRUN BIT - RBUF 14 
BGNSUB 
006542 172346 MOV 064%, $LPERR 
IF @ERROR NOTSETIN R4 THEN 
100000 BIT ERROR ,R4 
BNE $133 
sERROR DID NOT SET IN RBUF 
ERRHRD 102, ,DIDNOT 
ERROR 102 
3-WHEN ORERR SET 
;GET OUT NOW 
EXIT TST 
000001 172400 MOV #1,$TIMES 
BR TST32 333EXIT THIS TEST 
ENDIF 
$133: 
ENDSUBS 
BGNSUB 
006570 172320 MOV 064%, $LPERR 
sCHECK REAL RBUF TO SEE IF ORERR IS STILL SET. 
IF @ORERR NOTSETIN @RBUF THEN 
040000 172464 BIT @ORERR , SRBUF 
BNE $134 
sREADING RBUF CLEARED ORERR. 
ERRHRD 103, ITCLRED 
ERROR 103 
3SKIP REST OF TEST 
EXIT 
BR TST32 333EXIT THIS TEST 
ENDIF 
$134: 
ENDSUB 
BGNSUB 
006612 172276 MOV 064%, $LPERR 
sNOW SEE IF THEY CLEAR WHEN ANOTHER CHAR. IS RECEIVED 
sSEND A — AROUND. 
LET aTeur :B= 00 
172452 CLRB aTBUF 
sLET IT CIRCUATE 
WAITMS 1024. 
MOV »-(SP) 
MOV #1024. ,-(R5) 
003122 JSR PC WAIT 
MOV (SP)+,RS 
IF @ORERR SETIN SRBUF THEN 
040000 172422 BIT @ORERR , BRBUF 
BEQ $135 


s;ORERR DID NOT CLEAR IN RBUF 
ERRHRD 104, ,.DIDNOT 


MAINDEC -2Z7-CVOVA-D aw 3OA( 1052) 12-JN-84 09:52 PAGE 78 
CVDVAD.P11 12-JU-864 05:04 T31 TEST THE OVERRUN BIT - RBUF 14 


3137 006642 104104 ERROR 104 


3139 s-AFTER RECEIVING ANOTHER CHAR 
3140 sSKIP AROUND REST 
3141 006644 EXIT TST 
3142 006644 012767 000001 172306 MOV #1, $TIMES 
200406 BR TsT32 sssEXIT wet ae 


SEQ 76 


3145 006654 $135: 


3147 006654 IF @€RROR SETIN @RBUF THEN 

3148 006654 032777 100000 172400 BIT @ERROR , SRBUF 

3149 006662 001401 BEQ $136 

3150 sERROR DID NOT CLEAR IN RBUF 
3151 006664 ERRHRO 105, .OIDNOT 

3152 006664 104105 ERROR 105 


3154 006666 ENDIF 
3155 006666 $136: 
3156 006666 at 
x 
3158 006666 000400 BR TST32 33sEXIT y— TEST 
N 


3160 006670 ENDTST 


MAINDEC -2Z-CVDVA -D 
12-JU-64 05 


CvOVAD. 


Pil 


005003 
000401 


005203 
020327 


003060 
017700 
116377 
005002 


005077 


000010 


177777 
177777 
000004 


000017 


172252 


007170 


172244 


MACY11 30A( 1052) 
:04 


172260 
172272 
172304 


1722364 


172260 


172214 


000272 
000266 
172274 


172250 


SEQ 77 
12-AL-84 09:52 PAGE 7 
T31 TEST THE OVERRUN arr - RBUF 14 


3s SSHSOSSHSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSHSSSEHSSESEEEHEEESEEEEES 
3 § SSSHSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSHHSEESHHSESEEEHEEEESE 


s*TEST 32 PROGRAMMABLE BAUD RATE TEST 
:¢ TEST AT ALL SPEEDS AVAILABLE 
7) ARISON WILL BE MADE TO SEE 
:¢ IF NEW TIME IS LESS THAN PREVIOUS. 


3p SCSSSSSESHSSHASASSHSSAHSSHAORSSSALSSESSSSSHESSSHSEESEHSEHARDEHRERE REESE 


TST3S2: SCOPE 


MOV #10, $TIMES 33:00 10 ITERATIONS 
MOV @32,$TESTN 33;SET TEST NUMBER IN APT MAIL BOX 
IF @PBR NOTSETIN S$USWR THEN 
BIT @PBR , SUSUR 
BNE $137 
EXIT TST 
MOV #1, $TIMES 
BR TST33 333EXIT THIS TEST 
ENDIF 
$137: 
; THIS TEST IS ‘BREAK OR HALT’ SINSATIVE. 
IF @APTENV SETIN SENV THEN 
BIT @APTENV , SENV 
BEQ $140 
EXIT TEST 
MOV @1,$TIMES 
BR TST33 33:;EXIT THIS TEST 
ENDIF 
$140: 
LET OLD := @-1 
MOV @-1,0@0 
LET QDe2 := @-1 
MOV @#-1,0@0-2 
LET @TCSR := STCSR SET.BY @MAINT 
BIS @MAINT ,STCSR 
sEACH BAUD RATE 
INCR R3 FROM #0 TO #15. BY #1 
CLR R3 
BR $141 
$142: 
INC R3 
$141: 
CHE R3,015. 
BGT $143 


LET RO := @RBUF 
MOV SRBUF ,RO 


;CHANGE BAUDE RATE 
LET @TCSRHI :B= RATES(R3) 
MOVB RATES(R3), @TCSRHI 


3FLAG 
LET BIT := #0 


s;OUTPUT THE CHARACTER 
LET STBUF := #0 


CLR BIT 


CLR aTBUF 


sINITIALIZE COUNTER 





N6é 


SEQ 78 
MAINDEC -22-CVDVA-D MACY11 30A(1052) 12-JUL-84 09:52 PAGE 80 
CVDVAD.P11 12-JUL-84 05:04 T32 PROGRAMMABLE BAUD RATE TEST 
3218 007024 LET NEW := 00 
3219 007024 005067 000212 CLR NEW 
3220 007030 LET NEW+2 := 00 
3221 007030 005067 000210 CLR NEW+2 
_- 3222 «4007034 WHILE BIT EQ 60 DO 
«3223: «007034 $144: 
| 3554 007034 005702 1ST ~—s BIT 
| 3225 007036 001014 BNE $145 
| 3226 007040 IF @RCVROONE SETIN @RCSR THEN 
3227 007040 032777 000200 172212 BIT @RCVRDONE , BRCSR 
| 3228 007046 001403 BEQ $146 
3229 ;DONE - ITS READY 
3230 007050 LET BIT := @1 
3231 007050 012702 000001 MOV #1,81T 
3232 007054 ELSE 
3233 007054 000404 BR $147 
3234 007056 $146: 
3235 s OTHERWISE - INCREMENT TIME 
3236 007056 LET NEW := NEW + @1 
3237 007056 005267 000160 INC NEW 
3238 007062 LET NEWe+2 := NEWe2 + CARRY 
5239 007062 005567 000156 ADC NEW+2 
3240 007066 ENDIF 
3241 007066 $147: 
3242 ;SIGNALS DONE 
3243 007066 NDDO 
3244 007066 000762 BR $144 
3245 007070 $145: 
3246 
3247 007070 IF NEW+2 LO OLD+2 THEN 
3248 007070 026767 000150 000152 CMP NEW+2,0LD+2 
3249 007076 103001 BHIS $150 
3250 ; OK 
3251 007100 ELSE 
3252 007100 000412 BR $151 
3253 007102 $150: 
3254 3 NEWe2 >= OLD+2 
3255 007102 IF NEW+2 EQ OLD+2 AND NEW LO OLD THEN 
3256 007102 026767 000136 000140 CMP NEW+2,0LD+2 
3257 007110 001 BNE $152 
3258 007112 026767 000124 000126 CMP NEW, OLD 
3259 007120 103001 BHIS 52 
3260 30K 
3261 007122 ELSE 
3262 007122 000401 BR $153 
3263 007124 $152: 
3264 sNEW+2 > OLD+2 OR 
3265 s(NEWe2 = OLDe2 AND 
3266 ; NEW >= OLD) 
3267 ;BAUD RATE DIDN'T CHANGE 
3268 007124 ERRHRD 126, BAUDRATE 
3269 007124 104126 ERROR 126 
3270 007126 ENOIF 
3271 007126 $153: 
3272 007126 ENDIF 





MAINDEC -22-CVOVA-D 
CVOVAD.P11 12-AL -64 05:04 


3274 


& 
oa 


32 

3277 
3276 
3279 


3261 


SEESPEPEVERPE ET Lit itd 


007126 016767 
007134 016767 
007142 000714 
007144 116703 

110346 
007152 142716 
007156 142605 
007160 116377 


007166 000431 


—_——— + ooo 


000110 
000104 


172051 
000017 


007170 


000112 


172100 
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SEQ 79 
wy 3OA(1052) 12-AL-84 09:52 PAGE 8 
T32 PROGRAMMABLE BAUD hate TEST 
sUPDATE OLD TIME 
LET OLD := NEW 
MOV NEW, OLD 
LET ODe2 :* NEWe2 
MOV NEW*2,0.0+2 
ENDINC ;BAUD RATE 
BR $142 
$143; 
LET R3 :Be SUSWR+1 AND 617 : PUT BAUD BACK 
MOvB $USWR+1 RS 
*OvVB R3,-(SP 
BICB #17,(SP) 
BICcB (SP)+,R3 
LET STCSRHI :B= RATESC(RS) 3 LIKE HE WANTED IT 
sOvB RATES(RS),. STCSRHI 
EXIT 3SKIP TABLE 
BR TST33 333sEXIT THIS TEST 
RATES: ;A yy BH OF THE ACTUAL ty & TO MOVE INTO THE 
sUPPER BYTE OF XCSR FOR EACH BAUD RATE 
3ee NOTE:: THE VALUE INDICATED IN THE COLUMN ‘OFFSET 
see INTO TABLE’ CAN BE PLACED INTO BITS<11:8> 
see OF LOCATION ‘$USWR’ TO CAUSE THE CORROSPONDI 
see BAUD TO BE SELECTED ce — OLV1.1-E UPON 
see COMPLETION OF THIS TEST 
3 BAUD OFFSET INTO TABLE 
ROOSO: .BYTE 010 3 50 0 
ROO70: BYTE 030 3 70 1 
RO110 BYTE 050 3 110 2 
RO13S: .BYTE 070 3 135 3 
rR01S0: .BYTE 110 3 150 4 
ROSOO: .BYTE 130 3 300 5 
ROGOO: .BYTE 150 3 600 6 
RO20O: .BYTE 170 3 1200 7 
R1600: .BYTE 210 3 1800 lo 
R2000: .BYTE 230 3 2000 11 
R2400: .BYTE 250 3 2400 12 
R3600: .BYTE 270 3 3600 13 
raeoo0: .BYTE 310 3 4800 14 
R7200: .BYTE 330 3 7200 15 
R9600: .BYTE 350 ’ 9600 16 
R10000: .BYTE 370 PF 19200 17 


ee ee ee a ae ee ee 


a ee a —-- 


MAINDEC -7Z-CvDVA-0 
CvOVAD.Pil 12-AA -64 


-_— - = —— 


SOA 1052 - 


wt 


12-AA -84 09:52 PAGE 62 
32 PROGR 


AMMABLE BAUD RATE TEST 


Seiees BAUDRATE : -ASCIZ /BAUD RATE DION’T CHANGE ./ 


ENDTST 


MAINCEC -2Z-CvOVA-D 
12- JU -84 05:04 


CVDOVAD.P11 


062703 


MACY11 SOAC Se 


002442 


171676 
171710 


171560 


171726 


171706 


12-AL-84 09:52 
32 PROGR AMMABL 


PAGE 83 
E BAUD RATE TEST 


seTEST 


TSTSS3: 


65%: 


SCOPE 


38 


2 
D 


§ 33888 8 8 


wo 
o 


I 


338 


TRANSMITTER 


Cc TEST 


INTERRUPT LOGI 
yo EB THIS IS 4 SEPARATE TESTS 
DOES TRANSMITTER I 


A) 
8) AT PRIORITY OF O 


C) AND ONLY 


NTERRUPT LOGIC WORK 


ONCE 
0) BUT NOT WITH INTERRUPT ENABLE CLEAR 


#10, $TIMES 
033, $TESTN 


INTFLAG 


OLVEC RS 

04 RS 

Rl, -(SP) 
R3,R1 
@INTSRV,CR1)> 
@PR7.CR1) 

(SP )+,R1 
064% , SLPERR 
@XMITIE ,@TCSR 


@PRO, -( SP) 
065%, -( SP) 


@OXMITIE ,@TCSR 


RS, -(SP) 
#1024, , -(RS) 
PC ,WAIT 


(SP )+,RS 


INTFLAG, #1 
$154 


3300 10 ITERATIONS 
33SET TEST NUMBER IN APT MAIL BOX 
sCLEAR ‘INTERRUPT OCCURED’ FLAG 
LET INTFLAG := #0 


sGET VECTOR ADDRESS 
LET R3 := OLVEC 


sFOR THE TRANSMITTER 
2° RB + 4 


sSET VECTOR ae al TO TRANS.SRV AT PRI 
SETVEC Rs, @INTSRV, @PR 


LET RS 


s;CLEAR INTERRUPT ENABLE 
LET @TCSR := STCSR CLR.BY OXMITIE 


sSET IT TOO 
33PUT NEW PS ON STACK 

s3sPUT NEW PC ON STACK 

33POP NEW PC AND PS 


SET I.E. BIT 


sNOw 
LET aTcsR : :* @TCSR SET.BY @xMITIE 


sLET INTERRUPT HAVE TIME TO OCCUR 
WAITMS 1024. 


sO0ID EXACTLY 1 INTERRUPT OCCUR 
IF INTFLAG NE @1 THEN 


—-- -- 


—- ——--—— _ --—-——_-, 


I 


E?7 


SEQ 82 
MAINDEC -22-CVDVA-D MACY11 SOA(1052) 12-JUL-84 09:52 PAGE 84 
CVDVAD.P11  12-JUL-84 05:04 133s TRANSMITTER INTERRUPT LOGIC TEST 
3388 NO - WAS IT 0 OR MORE THAN ONCE 
3389 007402 IF INTFLAG EQ 60 T 
3390 007402 005767 002432 TST INTFLAG 
3391 007406 001002 BNE $155 
3392 TRANSMITTER OID NOT INTERRUPT IN TIME 
3393 007410 ERRHRD 106, ,DIDNIT 
3394 007410 104106 ERROR 106 
3395 007412 ELSE 
3396 007412 000401 a $156 
3397 007414 $155: 
3398 s TWICE 
3399 TRANSMITTER INTERRUPTED TWICE 
3400 007414 ERRHRD 107, , TWICE 
3401 007414 104107 ERROR 107 
3402 007416 ENDIF 
3403 007416 $156: 
3404 007416 ENDIF 
3405 007416 $154: 
3406 007416 ENDSUB 
3407 sINTERRUPT WITHOUT INTERRUPT ENABLE SET 
3408 007416 BGNSUB 
3409 007416 012767 007424 171464 MOV -«@64$,, SLPERR 
3410 sCLEAR ‘INTERRUPT OCCURED’ FLAG 
3411 007424 LET INTFLAG := 00 
3412 007424 005067 002410 CLR —sINTFLAG 
3413 CLEAR INTERRUPT ENABLE 
3414 007430 LET @TCSR :* @TCSR CLA.BY OXMITIE 
3415 007430 042777 000100 171626 BIC  - @XMITIE,@TCSR 
3416 NO INTERRUPTS SHOULD OCCUR. 
3417 007436 012746 000000 MOV ss @PRO, -( SP) +sPUT NEW PS ON STACK 
3418 007442 012746 007450 MOV -@65$, -( SP) :3PUT NEW PC ON STACK 
3419 007446 000002 RTI 13POP NEW PC AND PS 
3420 007450 655: 
$421 :DARE IT TO HAPPEN 
3422 007450 WAITMS 2 


3423 007450 01 MOV RS, -(SP) 

3424 007452 012745 000002 MOV @2,-C(RS) 

3425 007456 004767 002270 JSR PC WAIT 

3426 007462 012605 MOV (SP)+,RS 

3427 007464 IF INTFLAG NE @O THEN 
$426 007464 005767 002350 TST INTFLAG 

3429 007470 001401 BEQ $157 

3430 s INTERRUPT OCCURED WITH I E CLEARED 
3431 007472 ERRHRD 110,NOTENAB 
3432 007472 104110 ERROR ‘10 

3433 007474 ENDIF 

3434 007474 $157: 

3435 007474 BRESET 

3436 007474 000005 RESET 

3437 007476 ENDSUB 

3438 sRESTORE VECTOR AREA 
3439 007476 LET R4 := BOLVEC 

3440 007476 017704 171554 MOV SOLVEC ,R4 

3441 007502 CLRVEC R4 

3442 007502 010146 MOV R1,-(SP) s3sPUSH R1 ON STACK 


3443 €07504 010246 MOV R2,-(SP) ssPUSH R2 ON STACK 





F7 


MAINDEC -22-CVOVA-0 ACYL SOAC1052)_.12-AA.-84 09:52. PAGE 8s 28 
CVDVAD.P11. 12--AL.-84 05:04 133 TRANSMITTER INTERRUPT LOGIC TEST 

saae 012701 000004 MOV eA, RI 

3445 007512 010102 HOV soR1,R2 

007514 062702 ADD —«-@2.- RD 

$447 007520 010221 MOV —s-R2, (RL) 

3448 007522 11 CLR (RAD 

3449 007524 012602 HOV (SP +, R2 1:POP STACK INTO R2 
| $450 007526 012601 MOVs (SP)+ RI 11POB, STACK INTO Ri 





= ne 


(a 


MAINDEC -22-CvDVA-D 
CVOVAD.P11 


—— -———_  --—_ 


MACY11 3OAC 1052) nm - JUL -84 


12-JUL -84 05:04 


105077 


171436 


177777 
171414 


001000 
001614 


000100 


171420 
171432 


171314 


171456 


171444 


171370 


G7 


09:52 PAGE 86 
TRANSMITTER INTERRUPT LOGIC TEST 


§ FE SSSSSHSSSSSSSSHSHSSESESSSESSSSSESSESSSSESESSSESEESEEEEEEESEEEEESEES 
§ F SSSSSSSSSSSSSSSSSSSSSSHSSSSSESSSSSSSSSSSHESSESSSSESSHHHEEEEEEEEE 


SEQ 84 


seTEST 34 RECEIVER INTERRUPT LOGIC TEST 
3° THIS TEST COVERS ALL OF THE RECEIVER 
36 SIDE OF THE INTERRUPT LOGIC, BOTH DATASET 
3¢ AND CHARACTER MODES. 
PETIT IT iii iiiiiiiiiiiiiiiiiiiiiiiiiiitiiiitiiiiiiiiittt titty ti y) 
TST%4s: SCOPE 
MOV #10, $TIMES 33:00 10 ITERATIONS 
MOV 034, $TESTN s3SET TEST NUMBER IN APT MAIL BOX 


sCLEAR INTERRUPT OCCURED FLAG 
sSET WP oo 2 gp ~—. VECTOR 
SETVEC DLVEC, @INTSRV, @PR 


(PRIORITY © AND MULTIPLE INTERRUPT TEST. -RCVRIE 
BGNSUB 

064%, SLPERR 

INTFLAG 


LET INTFLAG := #0 


3SET MAINT. BIT 
LET @TCsR :* BTCSR SET.BY @MAINT 


sCLEAR INTERRUPTS 
LET @RCSR := GRCSR CLR.BY ORCVRIE 


sCHANGE PRIORITY 
To 0 


BIS @MAINT ,@TCSR 


BIC @RCVRIE , SRCSR 


MOVs @PRO, -(SP) 1:PUT NEW PS ON STACK 
065%. -(SP) ;3PUT NEW PC ON STACK 
RTI a3 NEW PC AND PS 


65%: 


sSEND A — 
LET aTeUF :B= @0 


CLRB STBUF 
sWAIT A MAXIMUM 
s0F 1000 MSEC FOR 
sRCVR ROY TO SET IN RCSR 
CALL TIMER IN <#1000, ORCVRDONE .RCSR, @SET> 
MOV RS, -CSP) 
MOV @SET, -CRS) 
MOV RCSR, -CRS) 
MOV @RC . CRS) 
MOV #1000, -( 
JSR PC, TIMER 
MOV (SP )+, RS 


sSET —_ ENABLE 
LET @RCSR := @RCSR SET.BY @RCVRIE 


sLET IT COME IN. 
ITMS 1 


BIS ORCVRIE , @RCSR 


MOV RS, -(SP) 





H7 


SEQ 85 
MAINDEC -27-CVDVA-D a SOAC 1052) 12-AL-84 09:52 PAGE 67 
CVDVAD.P11 12-JA -84 05:04 134 RECEIVER INTERRUPT LOGIC TEST 


3514 007672 012745 000001 MOV #1,-C(RS) 

3515 007676 004767 002050 JSR PC. WAIT 

3516 007702 012605 MOV (SP)+,RS 
MOV GRBUF ,RO 


35186 007704 017700 171352 


LET RO := GRBUF ; CLEAR RCVRDONE 


3520 :0ID HE 00 IT RIGHT? 
3521 007710 IF INTFLAG NE #1 THEN 
3522 007710 026727 002124 000001 CHP INTFLAG, 1 

3523 007716 001406 BEQ $160 


sNONE OCCURED 
3525 007720 IF INTFLAG EQ #0 THEN 
3526 007720 005767 002114 TST INTFLAG 
3527 007724 001002 BNE $161 
3528 sRECEIVER DID NOT INTERRUPT IN TIME 
3529 007726 ERRHRO 111, .0I0NOT 
3530 007726 104111 ERROR i111 
3531 sTWICE OR MORE 
3532 007730 ELSE 
3533 007730 000401 BR $162 
3534 007732 $161: 
3535 sRECEIVER INTERRUPTED TWICE 
3536 007732 ERRHRD 112,, TWICE 
3537 007732 104112 ERROR 112 
3538 007734 ENDIF 
3539 007734 $162: 
3540 0077384 ENDIF 
3541 007734 $160: 
3542 sRESET MAINT. BIT. 
3543 007734 LET @TCsR : :* @TCSR CLR.BY OMAINT 
3544 007734 042777 000004 171322 BIC @MAINT ,BTCSR 
3345 ; CLEAR INTERRUPT ENABLE 
3346 007742 LET @RCSR := SRCSR CLR.BY ORCVRIE 
3547 007742 042777 000100 171310 BIC @RCVRIE , SRCSR 
907750 ENDSUB 


3556 sPRIORITY O AND MULTIPLE INTERRUPT TEST. -DATAIE 
BGNSUB 


3558 007750 012767 007756 171132 MOV 064% , SLPERR 

3559 007756 IF @CABLE NOTSETIN $USWR THEN 

3560 007756 032767 020000 171234 BIT @CABLE , $USWR 

3561 007764 001004 $163 

mere"Sen TEST WITHOUT A CABLE 


BNE 
3564 007766 012767 000001 171164 MOV #1, ¢TIMES 
000466 BR TST3S sssEXIT — 


3566 

3557 007776 $163: 
3568 s+ CLEAR * INTFLAG' 
3569 007776 LET INTFLAG := 00 





8 8 ee OO i 


MAINDEC -22-CVDVA-D 


17 


et 30A( 1052) ms -JL-84 09:52 


CVOVAD.P11 12-JUL-84 05:04 
3570 007776 005067 002036 CLR INTFLAG 
3571 
3572 010002 
3573 010002 042777 000040 171250 BIC @OATAIE ,GRCSR 
3574 
3575 
| 3576 010010 012746 000000 Mov @PRO, -(SP) 
| 3577 010014 012746 010022 MOV 064%, -(SP) 
| 3578 010020 RTI 
_- 3579 010022 646: 
| 3580 010022 
3581 010022 042777 000004 171230 BIC @REQSEND , BRCSR 
3583 010030 
3584 010030 052777 000040 171222 BIS @DATAIE ,GRCSR 
3585 010036 
3586 010036 052777 00004 171214 BIS @REQSEND , BRCSR 
3588 010044 
3589 010044 01 MOV RS, -(SP) 
3590 010046 012745 000001 MOV #1, -(RS) 
3591 010052 004767 001674 JSR PC WAIT 
3592 010056 012605 MOV (SP )+,RS 
3593 
3594 
3595 010060 
3596 010060 026727 001754 000001 cH INTFLAG, 01 
3597 010066 001406 BEQ $164 
3598 
3599 010070 
3600 010070 005767 001744 TST INTFLAG 
3601 010074 001002 BNE $165 
3602 
3603 010076 
3604 010076 104113 ERROR 113 
3605 
3606 010100 
3607 010100 000401 BR $166 
3608 010102 $165: 
3609 
3610 010102 
3611 010102 104114 ERROR 114 
3612 010104 
3613 010104 $166: 
3614 010104 
3615 010104 $164; 
3616 010104 
3617 010104 042777 000040 171146 BIC @DATAIE ,@RCSR 
3618 010112 
3619 010112 042777 000004 171140 BIC @REQSEND , RCSR 
3620 010120 
3621 
3622 010120 
3623 010120 017704 171132 MOV SOLVEC,R4 
| 3624 010124 
3625 010124 010146 MOV R1, -(SP) 


SEQ 86 


PAGE 88 
RECEIVER INTERRUPT LOGIC TEST 


sCLEAR INTERRUPTS 
LET @RCSR :* BRCSR CLR.BY ODATAIE 


ay PRIORITY 
1sPUT NEW PS ON STACK 
ssPUT NEW PC ON STACK 
POP NEW PC AND PS 
LET @RCSR := GRCSR CLR.BY “REQSEND 


SET INTERRUPT ENABLE 
LET @RCSR :=* SRCSR SET.BY @OATAIE 


LET GRCSR := GRCSR SET.BY @REQSEND 
sLET IT COME IN. 
ITMS 1 


s DID IT 00 IT RIGHT? 
IF INTFLAG NE @1 THEN 


sNONE OCCURED 
IF INTFLAG EQ #0 THEN 
sDATAINT DID NOT INTERRUPT IN TIME 
ERRHRD 113, .DIDNOT 
sTWICE OR MORE 
ELSE 
: DATAINT INTERRUPTED TWICE 
ERRHRD 114,. TWICE 
ENDIF 
ENOIF 
LET @RCSR := 
LET @RCSR := 


ENOSUB 
LET R4 ;:= 


@RCSR CLR.BY @DATAIE 
@RCSR CLR.BY @REQSEND 


a@0L VEC 


CLRVEC R 
ssPUSH R1 ON STACK 





J7 


MAINDEC -2Z-CVDVA-D MACY1L SOAC10S2)_ 12-JUL-84 09:52 PAGE 89 S08 67 
_ Covad. PAL 12-JUL-84 05:04 RECEIVER INTERRUPT LOGIC TEST 
010126 01 MOVs R2, - (SP) +sPUSH R2 ON STACK 
3627 010130 012701 000004 MOVs @RARA 
3628 010134 010102 MOVs R11, R2 
3629 010136 062702 000002 ADD «a2. R2 
010142 010221 MOVs RO. (RL) 
3631 010144 005011 CLR ss (RAD 
$632 010146 012602 MOVs (SP)+, R2 +sPOP STACK INTO R2 
3633 010150 012601 MOV 


(SP)+,R1 33POP STACK INTO R1 
ENOTST 





MAINDEC -22Z-CVDVA-D 
CVOVAD.P11 


010152 
010154 
010162 


010170 
010170 


010176 


12-JA -64 05:04 


000004 
012767 
012767 


052777 


010546 
012745 
016745 
012745 
012745 
004767 
012605 


110277 


010546 
012745 


000001 
000035 


000004 
000000 
010210 


000002 
001432 


171034 


000377 


177777 
171010 
000200 


001000 
001204 


170772 


177777 


a ents 12-JU -64 


170776 
171010 


171066 


K7 


SEQ 88 
09:52 PAGE 90 
RECEIVER INTERRUPT LOGIC TEST 


fF PCOOOEEEEEEESEEREEEESESEESSESEEEEEEEEHESESEEEEESEEEESESEEESEEES 
Mrriiiiiiiitiiitiiiiiiiitiiiiiiiiiiiiiiiiiittiiiiiitititititi itty 
:*TEST 35 TEST ACTUAL DATA TRANSFERED 

A NON-INTERRUPT MAINTENANCE BIT SET 
WrriTiiiiiiiiiiiiitiiiitiiiiiiiiiitiiitiiiiiiiiiiiit tii itit tt tty 
TST35: 


MOV #1, $TIMES 3300 1 ITERATION 
MOV #35, $TESTN 33SET TEST NUMBER IN APT MAIL BOX 
sSET MAINT. BIT 
LET atcsr :* @TCSR SET.BY @MAINT 
BIS @MAINT ,@TCSR 
o— PRIORITY 
MOV @PRO, -( SP) 33PUT NEW PS ON STACK 
MOV 064%, -(SP) 33PUT NEW PC ON STACK 
one RTI POP NEW PC AND PS 
;GET DATA MASK. 
CALL DATUNG OuT <Ri> 
SUB #122,R5 
JSR PC, DATLNG 
MOV (R5), R1 
3 START CLEAN 
LET RO := @RBUF 
MOV 


;ALL BINARY CHAR. 
CLR INCR R2 FROM @O0 TO 0377 BY #1 
BR $167 
$170: 
INC R2 
$167: 

CMP R2,0377 
BGT $17 

; TRANSMIT CHAR IN R2 

CALL TIMER IN <@1000, OXMITRDY,TCSR, @SET> 
MOV RS,-CSP 
MOV @SET, -CRS) 
MOV TCSR, -CRS 
MOV @XMITROY, -CRS) 
MOV #1000, -(R5 
JSR PC, TIMER 
MOV (SP)+,RS 

; TRANSMIT IT 

LET @TBUF :B= R2 
MOvVB R2, @TBUF 

CALL TIMER IN <@1000, ORCVRDONE ,RCSR, @SET> 
MOV RS, -(SP) 
MOV @SET, -(RS) 





MAINDEC -2Z-CVDVA -D 
CVOVAD P11 


12- JU -864 05:04 


016745 
012745 
012745 
004767 
012605 


017703 


010204 
040104 


040103 
020403 


001405 


104116 
012767 
000404 


000725 


042777 


L7 


SEQ 89 
MACY11 3OA(1052) 12-AL-84 09:52 PAGE 91 
: T35 TEST ACTUAL DATA TRANSFERED 
170750 MOV RCSR, -(RS) 
000200 MOV »-CRS) 
001000 MOV #1000, -( RS) 
001150 JSR PC, TIMER 
MOV CSP )+,RS 
;AND SAVE IT 
LET R3 := SRBUF 
170730 MOV SRBUF RS 
sCOMPARE TO SEE IF WE RECEIVED IT ALL 
sCLEAN OFF NON-DATA BITS 
3;0N BOTH TRANSMITTED AND 
LET R4 ;:* R2 CLA.BY R1 
MOV R2,R4 
BIC R1,R4 
LET R3 :* RB CLAR.BY R1 
BIC R1,R3 
sRECEIVED DATA 
IF R4 NE R3 THEN 
R4,R3 
BEQ $172 
;DATA COMPARE ERROR 
ERRHRD 116,COMP.SBWAS 
ERROR 116 
EXIT TST ; ON ERROR 
000001 170604 MOV @1,$TIMES 
BR TST36 333EXIT THIS TEST 
ENDIF 
$172: 
EMOINC 6; R2 
$170 
$171: 
sRESET MAINT. BIT. 
LET @TCSR := @TCSR CLR.BY @MAINT 
000004 170676 BIC @MAINT ,aTCSR manent 








M7 | 
SEQ 90 
MAINDEC -72-CvOVA-D MACY11 3SOAC1052) 12-JUL-84 09:52 PAGE 92 
CVOVAD.P11 12-AA -864 05:04 T35 TEST ACTUAL DATA TRANSFERED 
3734 § SPCOOSESEEESESSSOEEESESEEEESEEEEEESEEEEEESEEEEESSEEEEESEEEEEEESS 
3735 § SPORES ORESESSSSESESSESEEEESEEEEESESEEEEESESEESEEEEEESESESEEEES 
3736 s*TEST 36 TEST DATA THROUGH CABLE 
3737 js PSCOSESESSSESSESSEEESEEESESEEEEEESESEEEESESEEEESEEEEEESESEEEEES 
3738 010366 000004 TST36: 
3739 010370 012767 000001 170562 MOV #1, $TIMES 3300 1 ITERATION 
3740 010376 012767 900036 170574 MOV #36, $TESTN +sSET TEST NUMBER IN APT MAIL BOX 
3741 010404 IF @CABLE NOTSETIN $USWR THEN 
3742 010404 032767 020000 170606 BIT @CABLE , $USWR 
3743 010412 001004 BNE $173 
3744 TT TEST WITHOUT 4 CABLE 
3745 010414 EXIT T 
3746 010414 012767 000001 170536 MOV @1,$TIMES 
3747 010422 000474 BK TST37 333sEXIT THIS TEST 
3748 010424 ENDIF 
3749 010424 $173: 
3750 3D0N'T MAINT. 
3751 010424 LET STCsR : :® @TCSR CLR.BY eMAINT 
3752 010424 042777 000004 170632 BIC @MAINT ,@TCSR 
3753 “7 PRIORITY 
3754 To 0 
3755 010432 012746 MOV @PRO, -( SP) 33sPUT NEW PS ON STACK 
3 010436 012746 010444 MOV 064%, -(SP) 33sPUT NEW PC ON STACK 
3757 010442 RTI 33;PO0P NEW PC AND PS 
3758 010444 645; 
3759 sGET DATA MASK 
3760 010444 CALL DATUNG OuT <R1> 
3761 010444 162705 000002 SU8 #1¢2,R5 
3762 010450 004767 001176 JSR PC .DATLNG 
3763 010454 012501 MOV CRS)+,R1 
3764 010456 LET RO := @RBUF ; START CLEAN 
3765 010456 017700 170600 MOV GRBUF ,RO 
3766 s;BINARY COUNT PATTERN 
3767 010462 INCR R2 FROM #0 TO #377 BY #1 
3768 010462 005002 CLR R2 
5769 010464 000401 BR $174 
3770 010466 $175: 
3771 010466 005202 INC Re 
3772 010470 $174: 
3773 010470 020227 000377 chp R2, 0377 
3774 010474 003047 BGT $176 
3775 
3776 
atid ; TRANSMIT THE CHAR. IN R2. 
3779 010476 CALL TIMER IN <@1000, OXMITROY, TCSR, @SET> 
3760 010476 010546 MOV RS, -(SP) 
3761 010500 012745 177777 MOV @SET, -CRS) 
3762 010504 016745 170554 MOV TCSR, -( 
3783 010510 012745 000200 MOV @XMITRDY , -CRS) 
3764 010514 012745 001000 MOV #1000, - 
3785 010520 004767 000750 JSR PC, TIMER 
Aa 010524 012605 MOV (SP)+,RS 
3768 s;START IT ON ITS WAY 
3789 010526 LET @TBUF :B= Re 





MAINDEC -2Z-CVDVA-D 
| CVDOVAD.P11 


i 





12-JUL -64 


110277 


010546 
012745 
016745 
012745 
012745 
004767 
012605 


017703 


010204 
040104 


040103 


020403 
001405 
104117 


012767 
000401 


N7 


MACY11 3OAC1052) 12-JU-84 09:52 PAGE 
05:04 136 


170536 


177777 
170514 
000200 
001000 
000714 


170474 


000001 170350 


93 SEQ 91 
TEST DATA THROUGH CABLE 
R2, 8TBUF 
CALL TIMER IN <@1000, ORCVRDONE ,RCSR, OSET> 
RS, -C(SP) 
@SET,-CRS) 
RCSR, -CRS) 
»- CRS) 
#1000, -(RS) 
PC, TIMER 
(SP )+,RS 
sRETRIEVE 
LET R3 := 
@RBUF ,RS 
sSTRIP OFF JUNK ON BOTH 
LET R4 := R2 CLR.BY Ri 
R2,R4 
R1,R4 
LET R3 := RS CLR.BY R1 
R1,R3 
;WE HAVE TROUBLE 
IF Ra NE R3 THEN 
R4,RS 
$177 
sDATA COMPARE ERROR 
117 ERRHRD 117,COMP,SBWAS 
EXIT TST ; ON ERROR 
#1, $TIMES 
TST37 


:33;EXIT THIS TEST 
ENDIF 


ENDINC 


3; Re 





MAINDEC - 22 -CVDVA -0 
CVDVAD.P11 


010712 
010712 


12-JUA -64 


000004 
012767 
012767 


032767 
001404 


012767 
000550 


162705 
004767 
012503 


016701 


012721 
012721 


012721 


ee le At, ———————_— -_——- — -- — _ 
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SEQ 92 
MACY11 SOAC(10S2) 12-AL-84 09:52 PAGE 94 
05:04 1% TEST DATA THROUGH CABLE 
t § SSHSSSSSSSSSSSHSSSSSSSSSSSSSSSSHSSSSSSSSSSESSSSSHSSEESSEEEEEEEEES 
WT TIIT ii iiiiiiiiiiiiiiriiiiiiiitiiiiiiiiiiiiiiiiiiitiiiiiiiiii ity) 
seTEST 37 FULL DATA TRANSFER WITH INTERRUPTS 
s¢ AND MAINTENANCE MODE. 
PI IIITIIiiiiiiiiiiitiiiiiiiiiiiiiiiitiiiiiiiiiiiiiiiiiittiitii ty. 
TST37: SC 
000001 17035354 @1,STIMES 3300 1 ITERATION 
000037 170346 MOV 037, $TESTN 33SET TEST NUMBER IN APT MAIL BOX 
s THIS TEST at ‘BREAK OR HALT’ SINSATIVE. 
IF @APTENV SETIN SENV THEN 
000001 170354 BIT @APTENY , SENV 
BEQ $200 
EXIT TEST 
000001 170310 MOV @1,STIMES 
BR TST40 33sEXIT THIS TEST 
ENDIF 
$200: 
T OATA MASK 
CALL paring OuT <R3> 
000002 SuB @122,R5 
000770 JSR PC .DATLNG 
MOV CRS)>o, RS 
3 THIS TEST WILL RUN = creer AND 
3 RECIEVER AT FULL SPEED T 
3 THE ABILITY GF THE TODULE? 
3s TO HANDLE INTERRUPTS FROM BOTH SINES 
3s AT ONCE. ALSO, THE SOUBLE BUFFERING LOGIC 
3 OF THE UART WILL BE FULLY TESTED. 
s THIS TEST WILL TRANSFER A MAXIMUM OF 400(8) 
3s CHARACTERS THROUGH THE MODULE. BUT IF AN ERROR 
s IS DETECTED BY THE TEST A PREMATURE SHUTDOWN OCCURS. 
——— PRIORITY 
000000 @PRO, -( SP) 3sPUT NEW PS ON STACK 
010676 MOV 064%, -( SP) 33sPUT NEW PC ON STACK 
nae RTI 33PO0P NEW PC AND PS 
3GET VECTOR ADORESS 
LET R1 :* OLVEC 
170354 MOV OLVEC,.R1 
sRCVR VECTOR 
LET (R1)>+ := @REC 
011076 MOV @REC .CR1)« 
LET (R1)+ := @PR7T 
000 340 MOV @PRT,(R1)> 
sPOINT TO TRANSMITTER VECTOR 
;AND SET IT UP ALSO 
LET (RL): :* @TRAN 
011034 MOV @TRAN,(R1)> 


LET (R1) :* OPR7 


MAINDEC - 22 -CVOVA -D 
CvDVAD.P11 


use 


PERE EE: 


a32 


3 


010716 
010722 
010722 


010726 
010726 


010730 
010730 
010734 
010734 


010740 
010740 


010742 
010742 


010750 
010750 


011010 


011010 
011010 
011016 
011016 


011024 


MACY11 30A( 1052) 


12-AL -64 05:04 


012711 


012701 


00502 


012704 


052777 


052777 


042777 
042777 


000340 


177777 


177777 


000100 


000030 


000100 
000100 


170314 


170306 


170274 


170246 
170234 


a ee ee ae a ee - oo ee ee —_ — = 


C8 


12-JA-64 09:52 PAGE 95 
137 FULL DATA TRANSFER WITH INTERRUPTS 


$201: 


$202: 


MOV 


MOV 


CLR 


BIS 


BIS 


BIS 


BIC 
BIC 


@PR7,(R1) 


@-1,R1 


R2 


@-1,R4 


ERRCNT 


@MAINT ,BTCSR 


OXMITIE ,@TCSR 


ORCVRIE , GRCSR 


OXMITIE ,@TCSR 
OXMITIE ,@RCSR 


s INITIALIZE COUNTERS 
LET RI :* @-1 


+" yee STORAGE 
LET R2 := 


3@ OF RECEIVED CHAR. COUNT. 
LET R4 :2 @-1 


s CLEAR A ne: COUNT. 

LET ERRCNT :* 

BRESET ;SET UP ALL REGISTERS 
3SE1 UP MAINTENANCE 

LET BTCSR :* BTCSR SET.BY @MAINT 
sSET I.E. IN TRANSMITTER 

LET BTCSR :* BTCSR SET.BY OxMITIE 


sAND RECEIVER 
LET @RCSR := SRCSR SET.BY @RCVRIE 


sNOW WE WAIT UNTIL R4& COUNT (RECEIVED) IS EQUAL 
REPEAT 


UNTIL R& EQ NUMBER OR ERRCNT GT 60 


1.y B grtnny ERRORS. 
IF ERRCNT NE THEN 


sDATA COMPARE ERROR 
ERRHRD 120,COMP FIRST 
ENDIF 


LET @TCSR := BTCSR CLR.BY OxMITIE 
LET @RCSR := GRCSR CLR.BY OxMITIE 


EXIT sSKIP OVER SUPPORT ROUTINES E STORAGE 





MAINDEC -2Z-CVDVA-D 
CVDVAD .P11 


011024 


011070 
011070 


011070 
011072 


011074 
011074 


011076 
011076 


011076 
011076 


011100 


000462 
090000 
000400 

000 


005201 


010167 
040367 


016777 


020167 
001003 


042777 


000401 
000000 


005204 


mm ee a a ee ene a ee ——— —— 


D8 


MACY11 SOAC1052) 12-AN-84 09:52 PAGE 9 
12-JU -84 05:04 137 


000030 
000024 


000020 170214 


177750 


000100 170174 


SEQ 94 
FULL DATA TRANSFER WITH INTERRUPTS 
TST40 s3sEXIT THIS TEST 
ERRCNT: O 
NUMBER: 400 
SB: BYTE O 


WAS: "BYTE 0 


TRAN: 


$204: 


INC 


s TRANSMIT INTERRUPT HANDLER 


BGNSRV TRAN 
FSSSSSSSSSSSSSSSSSSSSSSSSHSSSSSSSSSSSSSSSSSSSSSSSESEEESEESD 
3 INCREMENT _ COUNT 
a LET Ri :* RI « 
;SET UP FOR TRANSFER 
LET HOLD := Ri CLR.BY RS 
R1,HOLD 
R3,HOLD 
sAND SEND. 
LET @TBUF := HOLD 
HOLD , 8STBUF 
sALL DONE 
IF Ri EQ NUMBER THEN 
R1, NUMBER 
$204 
sSTOP INTERRUPT PROCESSING 
LET @TCSR := @TCSR CLR.BY OxMITIE 
OXMITIE ,@TCSR 
ENDIF 
222 3; EXIT SRV 
HOLD :0 
ENDSRV 


Z2ZZ: 


RTI 


FOSSSSSSSSHSSSSSSSESSSSSSESSSSSSHSHSSSSHSSSSSSSESSESHSHSHEESERS 


REC: 


sRECEIVER INTERRUPT HANDLER 
BGNSRV REC 


SF SSSSSSSHSSSESSSSSSSSESSESHESSSSSSESSSSSHSSESSESHESSEHEEHSESEEEESS 


INC 


s;COUNT THIS CHAR, 
LET R4 :* R4 e+ 1 
R4 


sGET CHAR IN + MASK IT 
LET R2 :* OSRBUF CLR.BY R3 








MAINDEC -22Z-CVDVA -D 
CVDVAD.P11 


011100 
311104 


011106 


011106 
011112 


011116 


011170 
011172 


12-JU -64 


017702 
040302 


010467 
040367 


020267 
001412 


005767 
001005 


116767 
110267 


005267 


E8 


SEQ 95 
MACY11 3O0A(1052) 12-JL-84 09:52 PAGE 9 
05:04 137 FULL DATA TRANSFER ache ‘INTERRUPTS 
170156 MOV QRBUF ,R2 
BIC R3,R2 
sRHLD WILL CONTAIN EXPECTED INPUT 
LET RHLD :* R4 CLA.BY RS 
000054 MOV R4,RHLD 
000050 BIC R3,RHLO 
300 THEY COMPARE 
IF Re NE RHLD THEN 
000044 CMP R2,RHLD 
BEQ $205 
sFIRST ERROR 
IF ERRCNT EQ @0 THEN 
177676 TST ERRCNT 
BNE $206 
sSAVE RECORD OF FIRST MISS 
LET SB :B= RHLD 
000030 177672 MOVB RHLD,SB 
LET WAS :B= R2 
177667 MOvVB R2,WAS 
ENDIF 
$206: 
sCOUNT IT 
LET ERRCNT := ERRCNT - #1 
177656 INC ERRCNT 
ENDIF 
$205: 
sALL DONE? 
IF R4&4 EQ NUMBER THEN 
177654 CMP R4,NUMBER 
BNE $207 
:STOP RECEIVER INTERRUPTS 
LET @RCSR := @RCSR CLR.BY ORCVRIE 
000100 170074 BIC @RCVRIE , BRCSR 
eee REPEAT LOOP IS CHECKING 
$207: 
sFOR ‘R4 = NUMBER’ ALSO 
BR 2222 s EXIT SRV 
RHLD:0 
2222: 
ENDSRV 
RTI 


ENDTST 


MAINDEC -2Z-CVDVA-D 
CVDVAD.P11 12-JUL -84 


011172 


000004 
011174 012767 


012767 


032767 
001004 


012767 
000452 


052777 


017700 


011312 


011312 
011312 
011316 


170020 


000252 


177777 
167770 
000200 


001000 
000170 


167744 


F8 


3OAC1052) 12-JUL-84 09:52 PAGE 96 
137 FULL DATA TRANSFER WITH INTERRUPTS 


FF SSSSHSSHHSSHSSSSSSSSSSSSSSSHSSESHHSSESEEESSESEEEEHEEEEEESHEEEEEEEE 
£8 8 SSSSOSSHSSESSSSSSSSSSSESSESSSSSSSSSESSSEEESESSSESEHEEEEEEEESEEEEEE 


TEST BREAK GENERATION LOGIC 
TRANSMIT KNOWN CHAR 


167756 
167770 
170002 


167732 


170026 


170014 


170012 


s@TEST 40 
ie 

34 
TST40: SCOPE 
MOV 
MOV 


BIT 
BNE 


$210: 


BIS 


g 


Oo 
ww 


I 


3938838 8 


o 
Oo 
oO 


$211: 


SEQ 9 


WITH BREAK SET 


AND COMPARE RECEIVED WITH O. 


8 fF SSSSSSSSSSSSOHSSHSSESHSSSSSSSSSSSSSSSSHSSSSSSEEHSSESEEEEHEEEEESEEEEE 


#10, $TIMES 
040, $TESTN 


@BRK , SUSUR 
$210 


#1,$TIMES 
TST41 
@MAINT ,BTCSR 


BREAK , BTCSR 


PC, TIME 
(SP )+,RS 
$211 


115 


SRBUF 
$212 


121 


3300 10 ITERATIONS 
33SET TEST NUMBER IN APT MAIL BOX 
IF @BRK NOTSETIN $USWR THEN 
EXIT TST 
3ssEXIT THIS TEST 
ENDIF 


MAINTENANCE BIT 


, SET 
LET @TCSR := STCSR SET.BY OMAINT 


s CLEAR RCVRDOME JUST IN CASE 
LET RO :* @RBUF 


SET BREAK BIT 
:* @TCSR SET.BY @BREAK 


sNON-ZERO CHAR. 
LET aTeuF : :* #252 


CALL TIMER IN <@1000, ORCVRDONE ,.RCSR, @SET> 


; 
LET @TCSR 


IF .ERROR THEN 


s RECIEVER DONE DID NOT SET 
ERRHRD 115 


ENDIF 


IFB GRBUF NE @O0 THEN 


; BREAK DID NOT EQUAL 0 
ERRHRD 121 ,.BADBRK 


ENDIF 





—— 


MAINDEC -2Z -CVDVA-D MACY11 30AC 1052) 
CVDOVAD.P11 12- JUL -84 05:04 

4110 011322 

4111 011322 000005 

4112 011524 

4113 011324 000415 

4114 011326 051102 040505 020115 
4115 011334 044504 020104 047516 
4116 011342 1 050505 040525 
sane 011350 020114 000060 


12-JU 
T40 


G8 


-64 09:52 PAGE 99 gh 
TEST BREAK GENERATION LOGIC 
BRESET 
eueat SET ;CLEAN UP 
EXIT 
BR TST41 sssEXIT THIS TEST 
BADBRK: .ASCIZ /BREAK DID NOT EQUAL 0/ 
ENDTST 


MAINDEC -27-CVDVA-D 
CVDOVAD.P11 


011354 
011356 


011364 
011370 


01 
011410 


1 
011470 


12-JU-64 05S 


000001 167574 
011372 


167646 
011416 


167622 
011444 


167430 
167422 
170250 


BR 64% 
33658: .ASCIZ <CRLF>eCSR: « 
64%: 


AR 653 
3367%: .ASCIZ ¢,VECTOR: « 
668: 


H8 


PAGE 100 
TEST BREAK GENERATION LOGIC 


SEQ 96 


MACY11 3SOAC( 1052) 12-AL-84 09:52 
204 T40 


seTEST 41 NOT A TEST - SEND BACK TO LOOP 
} SOCCER OEEESOSEESEEEESEEEEEEESEESEESEESEESESEESESEESEESESEEEEES 
TST41: SCOPE 

MOV #1, $TIMES 1300 1 ITERATION 

TYPE .65% ss TYPE ASCIZ STRING 


3sGET OVER THE ASCIZ 


MOV DLADO, -( SP) ssSAVE DLADD FOR TYPEOUT 
TYPOC 33GO TYPE--OCTAL ASCIICALL DIGITS) 
TYPE .678 ss TYPE ASCIZ STRING 


33GET OVER THE ASCIZ 


MOV OLVEC, -( SP) ssSAVE OLVEC FOR TYPEOUT 
TYPOC 33GO TYPE--OCTAL ASCIICALL DIGITS) 
TYPE 69% ss TYPE ASCIZ STRING 


68% 33GET OVER THE ASCIZ 


BR 
3369%: .ASCIZ ¢,ERRORS: « 
68% 


MOV SERTTL, -CSP) ssSAVE SERTTL FOR TYPEOUT 

TYPOS 33GO TYPE--DECIMAL ASCII WITH SIGN 
CLR sERTTL s RESET FOR NEXT DEVICE/PASS 

JP LOOP s BACK UP TO THE BEGINNING 





ae eee eee ee - 





MAINDEC -2Z-CVDVA-D 
12-JUL-84 05:04 


| CVOVAD.P11 


48 
4149 011474 
4150 011474 


4174 011474 
4175 011474 


4179 011510 


4164 011516 
4165 011516 


4187 011516 


000001 
000000 
016567 
016567 
112767 


177777 


000114 


000111 


000101 


18 


MACY11 a, 12-JU-84 09:52 PAGE 1 
T41 NOT A TEST - SENO BACK TO LOOP 


SEQ 99 


8 F SSSSSSSSSSSSASSSSHSSHSSSSSHSSSHSSSESSESESEHSSHEHEEEEEEEEEEEEESESES 


ROUTINE TIMER <HOWLONG ,WHICHBIT REG, SETCLR> 


TIMER: 

3@ ROUTINE: TIMER 

3% THIS ROUTINE IS USED TO TEST THE STATUS OF ANY BIT 

rT) IN ANY REGISTER. 

:¢ INPUTS: 

3% HOWL ONG THE MAXIMUM AMOUNT OF TIME TO SPEND IN 


THIS ROUTINE. 


WHICHBIT Sear ee BIT(S) SET THAT ARE 
A POINTER TO THE REGISTER TO BE CHECKED 


NOTE:: THE USE OF (RS) IS PART OF THE LINKAGE 
MECHANISM BETWEEN THE CALLER AND THE CALLED 


:¢ REG 

:¢ SETCLR THE DESIRED RESULTS 

3¢ EITHER @SET OR @CLEAR 

3° OUTPUT: 

36 THE ‘C’ BIT IS SET TO INDICATE AN ERROR 

:¢ BUT IT IS TESTED BY THE IF .ERROR STATEMENT 
3% 

3% 

3% 

3% 


bp SSSHHRESHREKHASSEHHRASHAKHEHHEHERHRERGEHERMELASAHHAREARKLEHISSARESEDEEE 


MOV 

MOV 

MOVB 
$215: 

i 

MOVE 
$217: es 

MOVB 


$220 


REGCRS ) ,REGSAV 
HOMLONG(RS >, TIMSAV 
@F ALSE ,FLAG 


WHICHBITCRS), @REGSAV 
$217 


@CLR ,HOLDSC 
$220 


@SET ,HOLDSC 


TRUE= 1 
FALSE= 0 


LET REGSAV := REGCRS) ; GET POINTER TO REGIST 
LET TIMSAV := HOWLONG(RS) ; SAVE HOWLONG FOR 
LET FLAG :B= @FALSE ; INITIALIZE THE EXIT FLA 


: START OF AN INFINITE LOOP 


; TEST TO SEE IF WHICHBIT IS SET 
IF WHICHBITCRS) NOTSETIN @REGSAV THEN 


LET HOLDSC :B= @CLR 
ELSE 


LET HOLOSC :B= @SET ; REMEMBER THIS 
ENOIF 


1 NOW SEE IF THAT WAS WHAT WE WANTED 
IFB WOLDSC EQ SETCLRC(RS) THEN 





| MAINDEC-22-CVDVA-D 
| CVDVAD.P11 


MACY11 
:94 


i2-JUL-84 05 


126765 
001003 


112787 


000140 


000016 


J8 


3OAC10S2) 12-JNL-84 09:52 PAGE 102 


000001 


$221; 


$216: 


$222: 


ROUTINE - TIMER 


3 ONLY 2 WAYS y Ag HERE 
1). WER 


SEQ 100 
HOLDSC , SETCLRCRS) 
$221 
3; JUST THE THING WE NEEDED 
LET FLAG :B= @TRUE 

@TRUE ,FLAG 

ENDIF 

EXIFB FLAG EQ @TRUE OR TIMSAV LE 60 

FLAG, @TRUE 
$216 
TIMSAV 
$216 

3; ONE WAY OR THE OTHER, WE ARE DONE 

; IF We ARE STILL HERE THEN HANG AROUND A WHILE 

WAITMS 1 s;WAIT FOR 10 MILLI-SECONDS 
RS, -(SP) 
#1,-C(R5) 

»WAIT 

(SP )+,RS 

LET TIMSAV := TIMSAV - #1 ; COUNTING DOWN 
TIMSAV 
— ENDL OOP ; CONTINUED AT THE TOP 


AN OUT OF T RROR ! 
2). THE BIT IS IN THE CORRECT CONDITION- -Go00 : 3 
IFB FLAG EQ @TRUE THEN 


FLAG, @TRUE 
$222 
RETURN NO.ERROR ; GOOD 
$213 
ENDIF 
RETURN ERROR ; BAD 
$214 


REGSAV: .WORD 0 
TIMSAV: .WORD O 
FLAG: -BYTE O 
HOLDSC: .BYTE O 
s WE ARE DONE GO BACK HOME 
ENORTN 





K8 


4302 011750 000207 


| SEQ 101 
MAINDEC -2Z-CVDVA-D MACY11 30A(1052) 12-JN-84 09:52 PAGE 103 
CVOVAC.P1i 12-JUL-84 05:04 ROUTINE - TIMER 
4255 8 F SSHSSSSSSSSSSSSSSSSSSHSSSSSESSSHSEHSHSESEEESESEEEEHESEEEEESEEEEES 
4256 011652 ROUTINE DATLNG <MASK> 
| 4257 011652 DATLNG: 
4258 3@ ROUTINE: DATLNG 
4259 :* THIS ROUTINE SETS UP A MASK FOR DATA, WITH 
4260 3@ INPUT - NOTHING IS PASSED TO THIS ROUTINE 
4261 :¢ BUT GLOBAL INFORMATION IS ASSUMED TO EXIST: 
4262 .e $USWR-- THE WORD FOR SOFTWARE PARAMETERS 
4263 36 DATA-- A MASK FOR THE LOCATION OF THE OCTAL 
Alba 3¢ NUMBER OF DATA BITS 
4265 3* OUTPUT---- 
4266 ) MASK-- A MASK OF BINARY ONES RIGHT-JUSTIFIED 
4267 36 THE NUMBER OF WHICH IS DEFINED IN $USWF WORD. 
4269 } OSOOSS SEES SEREDSEESSEESESESSEEEEESEEESEESESEEEESESEEESEESESES 
4270 
4271 011652 LET MASK(RS) := #0 3 START 
4272 011652 005065 000000 CLR MASK(RS ) 
4273 011656 LET NUMBR := $USWR AND @DATA 
4274 011656 016767 167336 000062 MOV SUSUR , NUMBR 
4275 011664 016746 000056 MOV NUMBR , -( SP) 
4276 011670 042716 000017 BIC @DATA,( SP) 
py He 011674 042667 000046 BIC (SP )+,NUMBR 
4279 011700 INCR I FROM #1 TO NUMBR BY #1 
4280 011700 012767 000001 167364 MOV 41,1 
4261 011706 000402 BR $225 
4262 011710 $226: 
4263 011710 005267 167356 INC I 
4264 9011714 $225: 
4265 011714 026767 167352 000024 CMP z. 
4286 011722 003006 BGT $227 
4287 011724 LET MASK(RS) := MASKC(RS) SHIFT @1 
4268 011724 006365 000000 ASL MASK(RS ) 
4269 011730 LET MASK(RS) := MASK(RS) SET.BY #1 
4290 011730 052765 000001 000000 BIS @1,MASK(RS > 
4291 011736 ENDINC 
4292 011736 000764 BR $226 
4293 011740 $227: 
4294 011740 LET MASK(RS) := COMP MASK(RS) 
4295 011740 005165 000000 COM MASK(RS ) 
4296 011744 RETURN 
4297 011744 000401 8R $223 
4296 011746 000000 : 
4299 011750 
4300 011750 
4301 011750 
| 
| 
| 





MAINDEC -22-CVDVA-D 
CVOVAD.P11 


011752 
011752 


12-JU -64 


020201 


000001 


000001 


MACY11 30A( 1052) 
05:04 


L8 


12-AL-84 09:52 PAGE 104 
ROUTINE - DATLNG 


ROUTINE WAIT <TIME> 
WAIT: 
3@ ROUTINE: WAIT 


:@ THIS ROUTINE IS USED TO DELAY EXECUTION OF THE 
i¢ MAIN PROGRAM FOR A SPECIFIED AMOUNT OF TIME. 
3¢ THIS IS ACCOMPLISHED BY INCREMENTING A 
:¢ REGISTER UP TO A LIMIT. THE INNER LOOP IS SET 
3¢ TO APPROXIMATE 1 MILLI SEC. 
fF PCCOCOSESESESEESSESSSSSESSEEEEEEOSSESSSSESESEESEEEEEEEEEEEESESS 
R1,-C(SP) 3sPUSH R1 ON STACK 
MOV R2,-(SP) 33PUSH R2 ON STACK 
R3,-(SP) :3;PUSH R3 ON STACK 
LET R1 := TIMECRS) 
MOV TIMECRS),R1 
INCRU R2 FROM @1 TO 91 BY #1 
MOV #1,R2 
BR $232 
$233: 
ADO €01,R2 
$232: 
cep R2,R1 
BHI $234 
INCR R3 FROM #0 TO @100 BY #1 
CLR R3 
BR $235 
$236: 
INC RS 
$235: 
Cop R3, 0100 
BGT $237 
ENDINC 
BR $236 
$237: 
ENDINC 
BR $233 
$234: 
MOV (SP)+,R3 33PO0P STACK INTO R3 
MOV (SP )+,R2 33POP STACK INTO Ro 
MOV (SP)+,R1 33:POP STACK INTO R1 
ENDRTN 
$230: 
$231: 
RTS PC 


MAINDEC -27-CVDVA-D 
CVDVAD .P11 


012032 


12-JU -64 





MACY11 30A( 1052) 
05:04 ROU 


M8 


12-AL-84 09:52 PAGE 105 
TINE - WAIT 


SEQ 103 


-SBTTL INTSRV INTERRUPT SERVICE ROUTINE 


ff SSOHHSSSSSSSSSSSSSSSSSSSSHSSSSSSSSSSSSSSSSSSESSHSSESSESSESSEESEEES 


V: 
3@ SERVICE ROUTINE: INTSRV 


:¢ THIS GLOBAL ROUTINE DOES NOTHING BUT INCREMENT 
3 ‘INTFLAG’ EACH TIME IT IS CALLED. IT ASSUMES 
3¢ THAT THE MAIN CALLING ROUTINE WILL KNOW WHAT 
:¢ TO LOOK FOR. 


3 § SSSSSHSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSSEESSESS 


sADD 1 TO ‘INTERRUPT OCCURED’ FLAG 
LET INTFLAG :* INTFLAG + #1 
INC INTFLAG 


ENDSRV ;THAT’'S ALL 
RTI 
INTFLAG: O 


MAINDEC -2Z -CVvDVA-D 
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12222 
012222 


12-JU -64 


116767 
016746 


MACY11 30A( 1052) 
05:04 


012050 


167112 
012076 


167000 
167054 


012132 


166750 
012156 


167062 
012202 


167036 


167060 


N8 


12-JL-64 09:52 PAGE 106 
INTSRV INTERRUPT SERVICE ROUTINE 


ROUTINE MYTYPE 


MYTYPE: 


§ F FSASEKOE SORE AAHAEKASEHSESASEKAGHSHOAARHHRE HESS KEHKEHRAHOEHEHEEREE 
TYPE 


33658: 
64%: 


33678: 
663: 


33698: 
683: 


BR 
-ASCIZ 


643 
<CRLF >eTEST @ @ 


$TESTN, -( SP) 
67% 

66% 

«, ERROR es 


SI TEMB, SFATAL 


SFATAL ,-( SP) 
69% 

68% 

*,PC = « 
SERRPC, -(SP) 


#,CSR: aw 
DLADD, -( SP) 
73% 

72% 

*, VECTOR: « 


OLVEC, -(SP) 


s3sTYPE ASCIZ STRING 
33GET OVER THE ASCIZ 


33SAVE $TESTN FOR TYPEOUT 

33GO TYPE--OCTAL ASCII(ALL DIGITS) 
s3TYPE ASCIZ STRING 

33;GET OVER THE ASCIZ 


; APT FATAL ERROR NUMBER 

:3SAVE SFATAL FOR TYPEOUT 

+360 TYPE--OCTAL ASCIICALL DIGITS) 
33TYPE ASCIZ STRING 

33;GET OVER THE ASCIZ 


33SAVE SERRPC FOR TYPEOUT 

33GO TYPE--OCTAL ASCIICALL DIGITS) 
ss TYPE ASCIZ STRING 

33;GET OVER THE ASCIZ 


3sSAVE DLADD FOR TYPEOUT 

33GO TYPE--OCTAL ASCIICALL DIGITS) 
3s TYPE ASCIZ STRING 

33;GET OVER THE ASCIZ 


3sSAVE DLVEC FOR TYPEOUT 
33GO TYPE--OCTAL ASCIICALL DIGITS) 


SEQ 104 





MAINDEC -22-CVDVA -D 
CVDVAD.P11 


012224 
012224 


MACY11 SOAC 1052) 


12-AL -84 05:06 


012600 


012767 
012767 
016767 
016767 
000410 


000110 


000016 


166712 


166714 


Bg 


SEQ 105 


12-AL-64 09:52 PAGE 107 
ROUTINE - MYTYPE 
ROUTINE CYCLE 
CYCLE: 
WITT tii iiitiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiititiiiitititiy) 
3@ ROUTINE: CLE 
af THIS ROUTINE CAUSES ADRS 10 POINT TO THE 
:¢ ADDRESS OF OLV11-E UNDER TEST, ADRS +2 TO 
3¢ POINT TO THE VECTOR OF THE OLVv11-€ UNDER TEST. 
3° at TRACK OF THE CURRENT DEVICE AND BIT 
3¢ 
ip enenarna anner amie sieseainaR =" ~" eeiacenetaami i inwnl ttt: 
REPEAT 
$244; 
IF BITMASK EQ #0 THEN 
TST BITMASK ; 
BNE $245 ' 
IF INITFLAG EQ @1 THEN 
CHP INITFLAG, #1 
BNE $246 
LET INITFLAG := 60 
CLR INITFLAG 
ELSE 
BR $247 
$246: 
CALL sE0P 3 AS A SUBROUTINE 
JSR PC , SE0P 
SPECIALADORESS: 3s BECAUSE SEOP RETURNS AS A JUMP 
LET RO := POP 
MOV (SP )+,RO 
ENDIF 
$247: 
LET BITMASK := 61 
MOV 01, 8ITMASK 
LET SDEVCT := #1 
MOV #1, $8D0€VvCT 
LET ADORESS := sBASE 
MOV $BASE , ADDRESS 
LET VECTOR :* $vVECT1 
MOV $VECT1, VECTOR 
ELSE 
BR $250 
$245: 
LET R@ :* 010 
MOV #10,R4 
LET BITMASK := BITMASK ROTATE 1 
ROL BITMASK 
LET ADORESS := ADORESS - R4 
ADD R4, ADDRESS 
LET VECTOR := VECTOR + R4 
ADO R4, VECTOR 
ENDIF 
$250: 
UNTIL BITMASK SETIN $DEVM 


BIT BITMASK , SDE VM 
BEQ $244 


mr 


MAINDEC -22-CvDVA -D 


CvOVAD .P11 12-AL -84 05:04 


012340 012701 012556 
012344 005267 166634 


012350 000404 
012352 000000 
012354 000001 
912356 000000 
012360 000000 


MACY11 SOA( 1052) 


C9 


12-JA-864 09:52 PAGE 108 


ROUTINE - CYCLE 
LET ADRS := @ADDRESS 
MOV @ADORESS , ADRS 
LET SDEVCT := SDEVCT + O1 
INC sDEVCT 
$242 
BITMASK: 0 
INITFLAG: 1 
SS: 0 
VECTOR: 0 
ENORTN 
$242: 
$243: 
RTS PC 


MAINDEC -22-CvOVA-D 
CvOVAD .P11 


12-JU -84 05:04 


4491 012402 042767 100000 166572 


012254 
4512 012466 377 377 


000 
4513 012471 015 042412 042116 ‘sENDMG: 
4514 012476 050040 051501 020123 


MACY11 30A( 1052) 


ee ee ee = 


DI 


12-JUL-84 09:52 PAGE 109 
END OF PASS ROUTINE 


-SBTTL END OF PASS ROUTINE 


SS aeet atin awMmiCE ee 
T THE PASS NUMBER ( SPASS) 

VeINDICATE END-OF -PROGRAM AFTER 1 PASSES THRU THE PROGRAM 

seTYPE “END PASS @XXXXX” (WHERE XXXXX IS A DECIMAL NUMBER) 

seIF THERES A MONITOR GO TO IT 

s¢IF THERE ISN'T JUMP TO SPECIALADORESS 


sEOP: 
SCOPE 
CLR sTSTNM 33ZERO THE TEST NUMBER 
CLR sTIMES 33ZERO THE NUMBER OF ITERATIONS 
INC 6PASS ssINCREMENT THE PASS NUMBER 
BIC + * 3 ma $PASS ee ALLOW A NEG. NUMBER 
° 83 


T $O0OAGN 33 YES 
(PC )>, SCPC )« ssRESTORE COUNTER 
sENDCT: 1 
sEOPCT 
TYPE » SENDMG s3sTYPE “END PASS @” 
MOV $PASS, -(SP) 33SAVE $PASS FOR TYPEOUT 
TYPOS 33GO TYPE--DOECIMAL Ht WITH SIGN 
TYPE . SENULL s3sTYPE A NULL CHARACTE 
$GET42: MOV 9042 ,RO 33GET MONITOR ROORESS. 
BEQ $DOAGN 3 ;8RANCH IF NO MONITOR 
RESET 33CLEAR THE WORLD 
SENDAD: JSR PC.CRO) 33GO TO MONITOR 
NOP 33 ROOM 
NOP 33FOR 
NOP ssACT11 
$DOAGN: 
JP aPC )> 3s sRETURN 
$RTNAD: . SPECIALADORESS 


BORD 
SEMALL: .BYTE -1,-1,0 ssNULL CHARACTER STRING 
-ASCIZ <15><12>/END PASS o/ 


—_ -— ae Oe eee 


ee ee ey 


MAINDEC -2Z-CVDVA -0 
CVOVAD .P11 


12-JA -84 05:04 


012737 
012737 


-= 5 rh OO 


EQ 


eH 3SOAC( 1052) 12-AL-84 09:52 PAGE 110 
POWER DOWN AND UP ROUTINES 


-SBTTL POWER DOWN AND UP ROUTINES 
WEI rrr) 
TINE 


3 POWE 
pene ye 000024 $PWRDN: MOV @SILLUP,,Q@PWRVEC ;;SET FOR FAST UP 


SEQ 108 


000026 MOV 0340 ,BOPWRVEC+2 ;;PRIO:7 
MOV RO, -( SP) 33PUSH RO ON STACK 
MOV R1,-CSP) 3sPUSH R1 ON STACK 
MOV »- (SP) 3 sPUSH ON STACK 
MOV R3,-CSP) 3sPUSH R3 ON STACK 
MOV R4,-(SP) 33PUSH R4 ON STACK 
MOV RS, -CSP) 33PUSH RS ON STACK 
166376 MOV SSR, -( SP) 3sPUSH @SWR ON STACK 
000110 MOV SP , $SSAVRE 33SAVE SP 
012560 000024 ds @SPURUP ,BOPURVEC ;;SET UP VECTOR 
BR --2 +3HANG UP 
§ FOOSSSSCSEEEESESSESESESESESESESEEESEESESEEEEEESESEOSEOOEEFEEEEES 
3sPOWE! ROUT INE 
012652 000024 sPWRUP: MOV @SILLUP ,BOPWRVEC ;;SET FOR FAST DOWN 
000064 MOV $SAVR6 , SP 33GET SP 
000060 CLR $SAVRE ssWAIT LOOP FOR THE TTY 
000054 18: INC $SAVR6 3sWAIT FOR THE INC 
BNE is 33;0F WORD 
166330 MOV (SP)+, SSW 3sPOP STACK INTO @SWR 
MOV (SP)+,R5 33sPO0P STACK INTO RS 
MOV (SP)-, 33POP STACK INTO R4 
MOV CSP )+,R3 83 STACK INTO R3 
MOV (SP)+,R2 33sP0P STACK INTO R2 
MOV (SP)+,R1 :3sPOP STACK INTO ~ 
MOV (SP)+,RO 33sPOP STACK INTO RO 
012506 000024 MOV OSPWRON, BePuRvEC’ SET UP THE POWER DOWN VECTOR 
000340 000026 MOV 0340 ,BOPWRVEC+2 ;;PRIO:7 
TYPE sREPORT THE POWER FAILURE 
SPWRMG: .WORD ‘sPOWER 33sPOWER FAIL resenes POINTER 
MOV (PC)+, (SP) y RESTART AT STAR 
$PWRAD: — START 3 sRESTART ADDRESS. 
SILLUP: HALT 33 THE POWER UP SEQUENCE WAS STARTED 
BR --2 33 BEFORE THE POWER DOWN WAS COMPLETE 
SSAVRE: O 33PUT THE SP HERE 
047520 042527 ‘sPOWER: .ASCIZ <15><12>“POWER” 


-EVEN 





r9 


SEQ 109 
MAINDEC -27Z-CVOVA-D MACY11 30A(1052) 12-JUL-84 09:52 PAGE 111 
. CVDVAD.P11 12-JUL-84 05:04 TYPE ROUTINE 

4561 .SBTTL TYPE ROUTINE 
4 
aes MMLIII iii iiiiiiiiiiiitititiiiiiiiiiiiiitiTiiiiiiiiiittiti tt fTiTit titty 
4564 s@ROUTINE TO TYPE ASCIZ nyt Sa eae, MUST TERMINATE WITH A O BYTE. 
4565 3@THE ROUTINE _ F INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED 
4566 s@NOTE1: L CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
4567 ; @NOTE2: oFTLLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
4568 — $FILLC CONTAINS THE CHARACTER TO FILL AFTER. 
aS69 
4570 FOCAL 
4571 341) USING A TRAP INSTRUCTION 
=a ~ TYPE »MESADR ssMESAOR IS FIRST ADORESS OF AN ASCIZ STRING 
4 3@ 
4574 3% TYPE 
4575 36 MESADR 
or ‘ 
4 
4576 012670 105767 166263 $TYPE: TSTB $TPFLG 33I1S THERE A TERMINAL? 
4579 012674 100002 BPL 1$ 338R IF YES 
4580 012676 000000 HALT ssHALT HERE IF NO TERMINAL 
4581 012700 000430 BR a4 3 s LEAVE 
4562 012702 010046 18: MOV RO, -(SP) 33sSAVE RO 
4583 012704 017600 MOV @2(SP),RO 33GET ADORESS A as STRING 
4564 012710 122767 000001 166276 CMPB @APTENV , SENV 3 sRUNNING IN AP 
4565 012716 001011 BNE 33NO,.GO CHECK FOR Aer APT CONSOLE 
4586 012720 132767 000100 166267 BITB @APTSPOOL . SENVM ;;SPOOL MESSAGE TO APT 
4587 012726 001405 BEQ 33N0,GO CHECK FOR CONSOLE 
45868 012730 010067 MOV RO.61$% ssSETUP MESSAGE ADORESS FOR APT 
4589 012734 004767 000774 JSR PC, $ATY3 33SPOOL MESSAGE TO APT 
4590 012740 618: -WORD O 3s sMESSAGE ADORESS 
4591 012742 132767 000040 166245 62%: BITs @APTCSUP,SENVM ;;APT CONSOLE SUPPRESSED 
4592 012750 001003 BNE 60% 33YES,SKIP TYPE OuT 
4593 012752 112046 2s: MOvVB CRO)+, -(SP) 33PUSH CHARACTER TO BE TYPED ONTO STACK 
4594 012754 001005 BNE 4% +78R IF IT ISN'T THE TERMINATOR 
4595 012756 005726 TST (SP )« ssIF TERMINATOR POP IT OFF THE STACK 
4596 012760 0 608: MOV CSP)+,RO 3sREST RO 
4597 012762 062716 000002 3%: ADO @2,(SP) ssADJUST RETURN PC 
4596 012766 RTI 3 sRETURN 
4599 012770 122716 000011 4$: CMPB @HT CSP) ssBRANCH IF <HT> 
4600 012774 001430 BEQ 8% 
4601 012776 122716 000200 CMPB OCALF CSP) 3 ;QRANCH IF NOT <CRLF> 

013002 001006 BNE 5% 
4603 013004 005726 TST (SP )-« 3:POP <CR><LF> aed 
4604 013006 10440 TYPE s3TYPE A CR AND L 
4605 013010 001171 $CRLF 

013012 105067 000130 CLRB ae 33;CLEAR CHARACTER COUNT 
4607 013016 000755 BR 33GET NEXT CHARACTER 
4606 01 004767 5%: JSR SC. ervpec 33GO TYPE THIS CHARACTER 
4609 013024 126726 166126 6%: CMPB $F ILLC,(SP)-« s3IS IT TIME FOR A ne CHARS .? 
4610 013030 001350 BNE 2s s3sIF NO GO GET NEXT CHAR. 
4611 013032 016746 166116 MOV $NULL , -( SP) 1 1GET @ OF FILLER CHARS. NEEDED 
4612 33AND THE NULL CHAR. 
4613 013036 000001 7%: 0ECB 1(SP) 3:D0ES A NULL NEED TO BE TYPED? 
4614 013042 002770 BLT 6% +36R IF NO--GO POP THE NULL OFF OF STACK 
4615 013044 004767 000032 JSR PC, $TYPEC 3:3GO0 TYPE A NULL 
4616 013050 105367 000072 OECB $CHARCNT 3300 NOT COUNT AS A COUNT 





MAINDEC -22Z-CVDVA-D 


CVOVAD.P11 


013054 000770 


112716 
004767 


12-JUL -84 


000002 
000015 
000014 
000012 


166034 
000002 


8R 
sHORIZONTAL TAB 
83: MOVB 
9%: JSR 
BITB 
BNE 
TST 
BR 
STYPEC: TSTB 
BPL 
MOVB 
CMPB 
BNE 
CLRB 
BR 
18: CMPB 
BEQ 
INCB 
: .WORD 
STYPEX: RTS 


G9 


3OA( 1052) 12-NN-84 09:52 PAGE 112 
TYPE ROUTINE 


7$ 


+ sLO0P 


ssREPLACE TAB WITH SPACE 
SPACE 


ss TYPE A 

3 sBRANCH IF NOT AT 
33TAB STOP 

33sPOP SPACE OFF STACK 


OF 
1 GET NEXT CHARACTER 
ssWAIT UNTIL PRINTER IS READY 


3sLOAD CHAR TO BE TYPED INTO DATA REG. 
33IS ogy A CARRIAGE RETURN? 

3 

— CHARACTER COUNT 

a8 

331S CHARACTER A LINE FEED? 

33BRANCH IF YES 

ssCOUNT THE CHARACTER 

ssCHARACTER COUNT STORAGE 


——- + +. 


H9 


SEQ 111 
MAINDEC -2Z-CVDVA-D MACY11 3OA(1052) 12-JUL-84 09:52 PAGE 113 
CVDVAD.P11 12-JUL_-84 05:04 TTY INPUT ROUTINE 

4640 .SBTTL TTY INPUT ROUTINE 
poe | 8 FE SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSSESSESSESSESESESESHEEEEEEEEEES 
4643 -ENABL L 
4645 3S OCOOCOSEOSSESEESSEEESESSEESSEESEEESEEESEESSESEEEESEEEEEEEEEEESS 
4646 s@SOFTWARE SWITCH REGISTER INE. 
4647 s@ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 
4648 s@SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL 
4649 3@WHEN OPERATING IN TTY FLAG MODE. 
4650 013152 022767 000176 165760 ‘$sCKSWR: CrP @SWREG , SWR 331S THE SOFT-SWR SELECTED? 
4651 013160 001074 BNE 15% 83 IF NO 
4652 013162 105777 165756 TSTB asTKS 33CHAR THE 
4653 013166 100071 BPL 15% 33IF NO, DON'T WAIT AROUND 
4654 013170 117746 165752 MOVB Os TKB, -CSP) 3sSAVE T 
4655 013174 042716 177600 BIC @*C177,(SP) ssSTRIP-OFF THE ASCII 
4656 013200 022726 000007 CMP @7,(SP)« 33IS IT A CONTROL G? 
4657 013204 001062 BNE 15% 33NO, RETURN TO USER 
4658 013206 126727 165722 000001 CMPB SAUTOB, #1 3sARE WE RUNNING IN AUTO-MODE? 
4659 013214 001456 BEQ 15% :sBRANCH IF YES 
4661 013216 104401 013677 TYPE . $CNTLG 33sECHO THE CONTROL-G _ 
4662 013222 104401 013704 $GTSWR: TYPE . $MSUR a3 CURRENT CONTENTS 
4663 013226 016746 164744 MOV SWREG, -( SP) 33SAVE SWREG FOR TYPEOUT 
4664 013232 104402 TYPOC 33GO TYPE--OCTAL ASCIICALL DIGITS) 
4665 013234 104401 013715 TYPE . SMNEW 33 T FOR NEW SWR 
4666 013240 005046 19%: CLR -(SP) ssCLEAR COUNTER 
4667 013242 005046 CLR -(SP) 33 THE NEW SWR 
4668 013244 105777 165674 7%: YsTs asTKS 33CHAR THERE? 
= 013250 100375 BPL 7% 33IF NOT TRY AGAIN 
4671 013252 117746 165670 MOvVB @sTKB, -(SP> 3sPICK UP CHAR 
pete 013256 042716 177600 BIC #*C177,(SP) ssMAKE IT 7-BIT ASCII 
4674 
4675 
4676 013262 021627 000025 9%: CMP (SP), ¢25 3318S IT A CONTROL-U? 
4677 013266 001005 BNE 10% 33 IF NOT 
4676 013270 104401 013672 TYPE » $CNTLU ot ECHO CONTROL -U (tU) 
4679 013274 062706 000006 20%: ADO #6, SP PREVI 
ren 013300 000757 BR 19% PaLET® S TRY IT AGAIN 
4682 
4683 013302 021627 000015 108: CMP (SP),@15 331S IT A <CR>? 
4684 013306 001022 BNE 16% 3 ;BRANCH IF NO 
4685 013310 005766 000004 TST 4(SP) 33sYES, IS IT THE FIRST CHAR? 
4686 013314 001403 BEQ 11% a3 IF YES 
4687 013316 016677 000002 165614 MOV 2( SP), @SWR 8 NEW SWR 
4686 015324 062706 000006 118: ADO #6, SP :s;CLEAR UP STACK 
4689 013330 104401 001171 14%: TYPE . $CRLF 33ECHO <CR> AND <LF> 

013334 126727 165575 000001 CMPB SINTAG, #1 33RE-ENABLE TTY KBD INTERRUPTS? 
4691 013342 001003 BNE 15% + sBRANCH IF NOT 
4692 013344 012777 000100 165572 MOV #100, 8¢TKS + sRE-ENABLE TTY KBD INTERRUPTS 
4693 013352 000002 15%: RTI + sRETURN 
4694 013354 004767 177522 16%; JSR PC, $TYPEC 33ECHO CHAR 
4695 013360 021627 000060 CMP (SP), @60 33CHAR < 0? 





I9 


SEQ 112 
MAINDEC -27Z7-CVDVA-D we on =. JU.-864 09:52 PAGE 114 
CVOVAD.P11 12-JUL-84 05:04 Y INPUT ROUTINE 
4696 013364 002420 BLT 163 La A YES 
4697 013366 021627 000067 CMP (SP), 067 33CHAR >» 7? 
4698 013372 003015 BGT 18% + sBRANCH IF YES 
4699 013374 042726 000060 BIC #60, (SP)-+ 1 ySTRIP-OFF ASCII 
4700 013400 005766 000002 TST 2(SP) 33IS THIS THE FIRST CHAR 
4701 013404 001403 BEQ 17% + sBRANCH IF YES 
4702 013406 006316 ASL (SP) +sNO, SHIFT PRESENT 
4703 013410 006316 ASL (SP) $3 CHAR OVER TO MAKE 
4704 013412 006316 ASL (SP) 33 ROOM FOR NEW ONE. 
4705 013414 000002 17% INC 2¢(SP) +sKEEP COUNT OF CHAR 
4706 013420 056616 177776 BIS sia (SP) 1 iSET IN NEW CHAR 
4707 013424 000707 BR 33GET THE NEXT ONE 
4708 013426 104401 001170 168: TYPE TSQUES s3sTYPE 2?<CR><LF> 
4709 013432 000720 BR 208 ssSIMULATE CONTROL -U 
4710 -DSABL LSB 
4711 
47l2 
4713 PoE Tir ri ririiiiiiriiiitiiitiiiiiiitiiiiitiiitiiiiiiiiitiiiiiiiit 
rt wey ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
34 3 
4716 3% ROCHR ssINPUT A SINGLE CHARACTER FROM THE TTY 
4717 38 RETURN HERE ssCHARACTER IS ON THE STACK 
4718 3¢ ssWITH PARITY BIT STRIPPED OFF 
4719 3 
4720 
4721 013434 011646 $ROCHR: MOV (SP), -CSP) 33PUSH DOWN THE PC 
4722 013436 016666 000004 000002 MOV 4(SP),2¢SP) 3sSAVE THE PS 
4723 013444 105777 165474 18: TSTB asTKS ssWAIT FOR 
4724 013450 100375 BPL 1$ 33A CHARACTER 
4725 013452 117766 165470 000004 MOVB Ot TKB ,4(SP) + #READ THE TTY 
4726 013460 042766 177600 000004 BIC @tC<177>,4(SP) ;;GET RID OF JUNK IF ANY 
4727 013466 026627 000004 0000235 CMP 4(SP),023 ssIS ITA CONTROL $7 
4726 013474 001013 BNE 3% + sBRANCH 
4729 013476 105777 165442 2s: TSTB asTKS ssWAIT FoR A NCHARACTER 
4730 013502 100375 BPL 2s 33:LOOP UNTIL ITS THERE 
4731 013504 117746 165436 MOVB OS TKB, -( SP) 33GET CHARACTER 
4732 013510 042716 177600 BIC @*C177,(SP) ssMAKE IT 7-BIT wy 
4733 013514 022627 000021 CoP (SP)+,@21 33IS IT A CONTROL -Q? 
4734 013520 001366 BNE 2s 33IF NOT DISCARD IT 
4735 013522 000750 BR 1$ ssYES, RESUME 
4736 013524 026627 000004 000140 53%: CMP 4(SP),@140 33IS IT UPPER CASE? 
4737 013532 002407 BLT ag +sBRANCH IF YES 
4738 013534 026627 000004 000175 CMP 4(SP),@175 HIS ITA Dg CHAR? 
4739 013542 003003 BGT 84 3 sBRANCH I 
4740 013544 042766 000040 000004 BIC 040 ,4(SP) ssMAKE IT UPPER CASE 
4741 013552 000002 4$: RTI 33:GO0 BACK TO USER 
4742 5 §SSSOSSSSOSSEESESESEESESESEEEESSEHSSEESEEEESEESEESEEEHEEEEEEEEEEEE 
4743 s*THIS ROUTINE WILL INPUT A STRING FROM THE TTY 
4744 s@CALL: 
4745 3% ROL IN +s INPUT A STRING FROM THE TTY 
4746 s¢ RETURN HERE ssADORESS OF FIRST CHARACTER WILL | ON THE STACK 
pba ie 1: TERMINATOR WILL BE A BYTE OF ALL O'S 
4749 013554 010346 $ROLIN: MOV RS, -CSP) ssSAVE RS 
4750 013556 012703 013662 18: MOV OsTTYIN,RS 3:GET ADDRESS 
4751 013562 022703 013672 2s: CMP OSTTYINeS, ,RS ssBUFFER FULL? 





JI 


SEQ 113 

MAINDEC -2Z-CVDVA-D a 3SOAC10S2) 12-JU-84 09:52 PAGE 115 
CVOVAD.P11 12-JUL-84 05:04 TTY INPUT ROUTINE 

4752 013566 101405 BLOS as 336R IF YES 

4753 013570 194410 ROCHR 33GO READ ONE CHARACTER FROM THE TTY 

47534 013572 112615 MOVB (SP )+,CR3) 31GET CHARACTER 

4755 013574 122713 000177 10%: CMPB #177,(R3) 33IS IT A RUBOUT 

4756 013600 001005 BNE 3$ 33SKIP IF NOT 

4757 013602 104401 001170 4s: TYPE . $QUES ssTYPE A ‘?° 

4758 013606 000765 BR is ss;CLEAR THE BUFFER AND LOOP 

4759 013610 111367 000044 3$: MOVE (R3),98 ssECHO THE CHARACTER 

4760 013614 104401 013660 TYPE 98 

4761 013620 122723 000015 CMPB #15,(R3)+ 1 sCHECK FOR RETURN 

4762 013624 001556 BNE 2s ssLOOP IF NOT RETURN 

4763 013626 105063 177777 CLRB -1(R3) ssCLEAR RETURN (THE 15) 

4764 013632 104401 001172 TYPE . $LF ssi YPE A LINE FEED 

4765 013636 012603 MOV (SP)+,R3 + sRESTORE RS 

4766 013640 011646 MOV (SP), -CSP) ssPOJUST THE STACK AND PUT ADORESS OF THE 

4767 013642 016666 000004 000002 MOV 4(SP),2¢SP) 3 FIRST ASCII CHARACTER ON IT 

4768 013650 012766 013662 000004 MOV OsTTYIN, 4(SP) 

4769 013656 000002 RTI + sRETURN 

4770 013660 000 9%: -BYTE 0 a, FOR ASCII CHAR. TO TYPE 

4771 013661 000 -BYTE 0 33 TERMINA 

4772 013662 000010 $TTYIN: .BLKB 8. 1 RESERVE. 8 BYTES FOR TTY INPUT 


4773 013672 052536 005015 000 $SCNTLU: .ASCIZ /?U/<15><12> ssCONTROL “U 
4774 013677 136 006507 000012 ‘SCNTLG: .ASCIZ /*G/<15><12> 3 CONTROL “o" 
4775 013704 005015 053523 020122 $MSWR: .ASCIZ <15><12>/SWR = / 


000 
4777 013715 040 047040 053505 SsMNEW: .ASCIZ / NEW = / 
4778 013722 036440 000040 





MAINDEC -2Z-CVOVA-D 
CVOVAD.Pil 


MACY11 ee rs JUL - 84 
T COMMUNICATIONS ROUTINE 


12-JUL-84 05:04 


112767 
112767 
000403 
112767 


000236 
000226 


000220 


165042 
000004 


K9 


09:52 PAGE 116 


-SBTTL APT COMMUNICATIONS ROUTINE 


$F SSSSSSSSSSSSSSSSSSSSSSSSSSSSHSSSSSSHSSSSSSSEESESHEEEEEEEESEEEEEEE 


SATY1: 
$aTY3: 


SATY4: 
SATYC: 


1%: 


2s: 


z jeune SeReaysess o3s2 


#1, S$FFLG 


#1, 8FFLG 
RO, -(SP) 


(SP)+,R1 
(SP)+,RO 


+370 REPORT FATAL ERROR 
33TO TYPE A MESSAGE 


33TO ONLY REPORT FATAL ERROR 
3sPUSH RO ON STACK 


NOT: 
s sOPERATING UNDER APT? 
s3IF NOT: BR 

3 sSHOULD SPOOL MESSAGES? 
33IF NOT: BR 

33GET MESSAGE ADOR. 


3 3;8UMP RETURN ADOR. 
33;SEE IF * DONE - LAST XMISSION? 
33IF NOT: WAIT 


33FIND END OF MESSAGE 


3;SUB START OF MESSAGE 
33GET MESSAGE LNGTH IN WORDS 
33;PUT LENGTH IN MAILBOX 
33TELL APT TO TAKE MSG. 


+sPUT MSG ADOR IN JSR LINKAGE 
3;BUMP RETURN ADDRESS 

;3PUSH 177776 ON STACK 

3;CALL TYPE MACRO 


3:SHOULD REPORT FATAL ERROR? 
23IF NOT: 


FINISHED LAST MESSAGE? 
s3IF NOT: — 


33GET 

::8UPP RETURN ADOR. 
33 TELL al TO TAKE ERROR 
+:CLEAR FATAL FLAG 


s;CLEAR MESSAGE FLAG 
33POP STACK INTO R1 
33sPOP STACK INTO RO 


SEQ 114 





MAINDEC -2Z7-CvOVA-D 
CVOVAD.P11 12-JU -84 


4827 014166 000207 


4626 014170 000 
4629 014171 000 
4630 014172 090 
4631 014174 
4832 

4633 000001 
4334 000100 
4635 000040 


L9 


ww a. +. JL-64 09:52 PAGE 117 


COMMUNICATIONS ROUTINE 


APTCSUP =040 


oooR 


ssFATAL FLAG 


SEQ@ 115 





MAINDEC -227-CvOVA-D 
CVOVAD.P11 


4836 
4637 


4836 
4639 
464) 
4643 
aaa 
4845 
4647 
4646 
4849 
4651 
4852 
4653 


$3 


: 


014174 
014174 


014372 


014372 


12-JA -64 


402 
016716 


022737 
001001 
000000 


000002 


M9 
SE@ 116 
wh SOA( 1052) 12-AL-84 09:52 PAGE 118 ” 
05:04 ERROR HANDLER ROUTINE 


-SBTTL ERROR HANDLER ROUTINE 
} sSOSOSSESESSSSESESEESESEEEEESEESEEEEESEESEEOEEEESEESEOSEEEESEESS 
s@SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 


3*AND GO TO MYTYPE ON 
s@THE SWITCH sath on kakak BY THIS ROUTINE ARE: 


j 
s@THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
3@SW15°1 
3@SW13°1 INHIBIT ERROR TYPEOUTS 
3@SW10°1 BELL ON ERROR 
3eSWO9*1 LOOP ON ERROR 
3 *CALL 
3¢ ERROR WN 3 ;ERROR=EMT AND N=ERROR ITEM NUMBER 
SERROR: 

CKSWR 3sTEST FOR CHANGE IN SOFT-SUR 
164701 78: INCB — 33SET THE ERROR FLAG 
BEQ 3300N'T LET THE FLAG GO TO ZERO 
164672 164730 MOV iTsTe, @DISPLAY ; DISPLAY TEST NUMBER AND ERROR FLAG 
002000 164720 ee = 10, 8SWR 3 sBELL ERROR? 
$3 - 
001164 TYPE . SBELL 3sRING BELL 
164660 1%: INC SERTTL s3;COUNT THE NUMBER OF ERRORS 
164660 MOV (SP), SERRPC 33:GET ADORESS OF ERROR INSTRUCTION 
000002 164652 SUB 02, $ERRPC 
164646 164642 MOVE SSERRPC,sITEMB ;;STRIP AND SAVE THE ERROR ITEM CODE 
020000 164660 BIT @6IT13,8SWUR 33SKIP TYPEQUT IF SET 
BNE 20% 33SKIP TYPEOUTS 
175554 JSR PC .MYTYPE 33GO TO USER ERROR ROUTINE 
001171 aon TYPE . $CRLF 
000001 164714 CMPB @APTENV , SENV 3; sRUNNING IN APT MODE 
BNE 2s +3NO,SKIP APT ERROR REPORT 
164606 000004 MOVB swe. eae 33SET ITEM NUMBER AS _. A cease 
177430 JSR ~— ;;REPORT FATAL ERROR TO AP 
21% .BYTE 
BYTE ° 
22%: BR 22% 33;APT ERROR LOOP 
164614 2s: TST aSWR 7 3sHALT ERROR 
BPL 3% 33SKIP IF CONTINUE 
HALT 33HALT ON ERROR! 
CKSWR 33TEST FOR CHANGE IN SOFT-SUR 
001000 164600 3%: ot Sene.eae 3 sLOOP yee SWITCH SET? 
33 
164542 MOV $LPERR ,( SP) :3sFUOGE RETURN FOR LOOPING 
164610 4s TST sESCAPE 33CHECK FOR AN ESCAPE ADDRESS 
BEQ 5% 336R IF NONE 
164602 = MOV SESCAPE ,( SP) :3FUDGE RETURN ADDRESS FOR ESCAPE 
012452 000042 CMP @SENDAD , 8042 +3ACT-11 AUTO-ACCEPT? 
BNE 6% 3 ;BRANCH IF NO 
HALT 33;YES 
6%: 
RTI 3; sRETURN 


014374 
014374 


MAINDEC -2Z-CVDVA-D 


CVDVAD .P11 12-JUL -84 05:04 


116767 


164534 


164466 
164420 


164403 
164430 
164366 


164376 


164320 


164310 
164356 


164364 


N9 


SEQ 117 


ah 3OA(105S2) 12-JL-84 09:52 PAGE 119 
SCOPE 


HANDLER ROUTINE 
-SBTTL SCOPE HANDLER ROUTINE 


re ye np tg ge eg 
s*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
3@AND LOAD THE TEST NUPBERC STSTNA) INTO THE DISPLAY REG.(DISPLAY<7:0>) 
3*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:06> 

3*THE SWITCH OPTIONS on ait BY THIS ROUTINE ARE: 


3*SW14=1 LOOP ON TEST 
:@SW11°1 INHIBIT ITERATIONS 
3¢Sw09e1 LOOP ON ERROR 
3*SWO06=1 LOOP ON TEST IN SWR<7:0> 
3: @CALL 
if SCOPE 3: ;SCOPE=IOT 
$SCOPE: 
CKSWR :3TEST FOR CHANGE IN SOFT-SWR 
1%: BIT @81T14,8SUR 33LO0P ON PRESENT TEST? 
BNE sOVER 33sYES IF SWi4=1 
;@@@COSTART OF — FOR THE XOR TESTEROSOSS 
$xTSTR: BR 33IF RUNNING ON THE “se TESTER CHANGE 
33THIS INSTRUCTION TO A “NOP” (NOP=240) 
MOV SPERRVEC , -( SP) ; SAVE THE CONTENTS OF THE ERROR VECTOR 
#5% , BOERRVEC 33SET FOR TIMEOUT 
TST 90177060 33TIME OUT ON XOR? 
MOV (SP)+, Q@@ERRVEC ;;RESTORE THE ERROR VECTOR 
BR $SVLAD 33GO TO THE NEXT TEST 
5$: CMP (SP)+,CSP)+ 3sCLEAR THE STACK AFTER A TIME OUT 
MOV (SP)+, @@ERRVEC ;;RESTORE THE ERROR VECTOR 
BR 7% 3;LO00P ON THE PRESENT TEST 
6%: ;@@@@0END OF CODE FOR THE XOR TESTERGSSCCE 
BIT @BIT06 , 8SUR :3LO0P ON SPEC. TEST? 
BEQ 2s 336R IF NO 
CMPB @SWR , $TSTNM 330N THE RIGHT TEST? SWR<7:0> 
BEQ sOVER 33;8R IF YES 
2s: TSTB $ERFLG 33HAS AN ERROR OCCURRED? 
BEQ 3$ 33;8R IF NO 
SERMAX , SERFLG 33MAX. ERRORS FOR THIS TEST OCCURRED? 
BHI $ 33:8R IF NO 
BIT @8IT09, BSWUR 33LOO0P ON ERROR? 
BEQ as ;3;6R IF NO 
7$: MOV on aren :3SET LOOP ADDRESS TO LAST SCOPE 
4s: CLRB sERFLG 33;ZERO THE ERROR FLAG 
CLR $TIMES :3;CLEAR THE NUMBER OF ITERATIONS TO MAKE 
BR is 3 sESCAPE TO THE NEXT TEST 
3%: BIT ieee . 8SWR ; + BOCaT! SVERATIONS? 
3 
TST $PASS 33IF FIRST PASS OF PROGRAM 
BEQ 1$ $3 INHIBIT ITERATIONS 
INC $ICNT +; INCREMENT ITERATION COUNT 
CMP $TIMES, $ICNT 3;CHECK THE NUMBER OF ITERATIONS MADE 
BGE sOVER 338R IF MORE ITERATION REQUIRED 
1%: MOV #1, $ICNT | ;REINITIAL IZE THE ITERATION COUNTER 
MOV $MXCNT , $TIMES +3SET NUMBER OF ITERATIONS TO DO 
$SVLAD: INCB $TSTNM COUNT TEST NUMBERS 
MOVB $TSTNM,S$TESTN ;;SET TEST NUMBER IN APT MAILBOX 





MAINDEC -27Z -CVOVA-D 


CVDVAD.P11 


014614 011667 
014620 011667 
005067 


014630 112767 
014636 016777 
014644 016716 

000002 


014652 003720 


MACY11 


12-2 -84 05:04 


B10 


(SP), $LPADR 
(SP), SLPERR 
sESCAPE 

@1, SERMAX 


$TSTNM, GDISPLAY 
SLPADR , (SP) 


3SOA(1052) 12-AL-84 09:52 PAGE 120 
SCOPE HANDLER ROUTINE 
MOV 
MOV 
CLR 
164257 MOVB 
164276 sOVER: MOV 
MOV 
RTI 
$MXCNT: 2000. 





ssSAVE SCOPE LOOP ADORESS 

33SAVE ERROR LOOP ADDRESS 

ssCLEAR THE ESCAPE FROM ERROR ADORESS 
ssO0NLY ALLOW ONE(1) ERROR ON NEXT TEST 
ssOISPLAY TEST NUMBER 

ssFUOGE RETURN ADORESS 

ssFIXES PS 

33MAX. NUMBER OF ITERATIONS 


SEQ 118 


CVOVAD .P11 


MAINDEC -272-CvDVA -D 


12- JU -84 05:04 


C10 


SEQ 119 
MACY11 SOA(1052) 12-AL-64 09:52 PAGE 121 
: CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
.SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
} J OCOCOOCOOSOEEE SEES SSESESOEEEEEESOSEEOSEOESEOSEOOESEESEEEESEEES 
s@THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A S-DIGIT 
s@SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
s@MUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
s@BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
ee WITH SPACES. 
’ : 
3¢ MOV NUM, -( SP) 33PUT THE BINARY NUMBER ON THE STACK 
3¢ TYPOS 33GO TO THE ROUTINE 
sTYPDS: 
MOV RO, -( SP) 33PUSH RO ON STACK 
MOV R1,-(SP) 33PUSH Ri ON STACK 
MOV R2,-(SP) 8 ON ST 
MOV R3,-(SP) 33PUSH R3 ON STACX 
MOV RS. -(SP) 33PUSH RS ON ST 
020200 HOV - (SP) 33SET BLANK SWITCH AND SIGN 
000020 MOV 20( SP) RS 33GET THE INPUT 
BPL 1 136R INPUT IS 
MEG ssMAKE THE BINARY NUMBER POS 
000055 000001 MOvVB @'-,1¢0SP) 3 MAKE ASCII NUMBER NEG 
18: CLR 3sZERO THE CONSTANTS INDEX 
015070 MOV @s08LK ,R3 s3sSETUP THE OUTPUT POINTER 
MOVB @ ,CR3)- 33SET THE FIRST CHARACTER TO A BLANK 
2s: CLR R2 ssCLEAR THE BCD Bases 
015060 MOV sOTBL(RO),R1 33GET THE CONSTAN 
38; Sua R1,RS 33FORM THIS BCD DIGIT 
BLT as 330R IF DONE 
~ = ssINCREASE THE BCD DIGIT BY 1 
4%: ADO R1,R5 33400 — THE CONSTANT 
TST Re Oem FF BCD oe 
BE 5s aaF THROUGH IF 
TST8 (SP) s0st hy oe LEADING 0'S? 
BMI 78 336R IF 
5%: ASLB (SP) 33S0? 
Bcc 68 330R IF NO 
000001 177777 MOvB 1(SP),-1€R3) 33VYES--SET THE SIGN 
000060 68: BIS @'0,R2 s3sMAKE THE BCD DIGIT ASCII 
000040 78: BIS @ ,R2 3sMAKE IT A SPACE IF NOT ALREADY A DIGIT 
Ove R2,(R3)> 33PUT THIS CHARACTER IN THE OUTPUT BUFFER 
TST (RO)> 33JUST INCREMENTING 
000010 CMP RO, 010 33CHECK THE TABLE INDEX 
BLT 2s 33GO OO THE NEXT DIGIT 
6GT 6% 33GO0 TO EXIT 
OV RS ,R2 33:3GET THE LSO 
Bo 65 33GO CHANGE TO ASCII 
8%: TSsT6 (SP )- 33WAS THE LSO THE FIRST NON-ZERO? 
BPL 9% 336R IF NO 
177777 177776 MOvVB -1¢SP), -2(R3) 3s YES--SET THE SIGN FOR TYPING 
9%: CLRB (R3) 13SET THE TERMINATOR 
MOV (SP )+,R5 33P0P STACK INTO RS 
MOV (SP )+,R3 33POP STACK INTO R3 
MOV (SP )+,R2 33POP STACK INTO R2 





mm ee eae ee ee + ee 


AAN 
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012601 
012600 
104401 


015070 
000002 


l2- 


CONVE 


sOTBL 


JA -84 09:52 PAGE 122 
RT BINARY TO DECIMAL AND TYPE ROUTINE 


MOV (SP)+,R1 +sPOP STACK INTO Ri 

MOV (SP )+,RO 33POP STACK INTO RO 

, S06LK s3NOW TYPE THE 

MOV 2(SP),4(SP) ssADJUST THE STACK 
(SP )+, (SP) 


MOV 
RTI 3s sRETURN TO USER 
: 10000. 


NUMBER 


SEQ 120 


——_— + -— OEE ooo ee ee ee ee” 


E10 


SEQ 121 
MAINDEC -27Z-CVDVA-D eh 30A(1052) 12-JA-84 09:52 PAGE 123 
CVOVAD.P11 12-JUL_-84 05:04 BINARY TO OCTAL (ASCII) AND TYPE 
5021 .SBTTL BINARY TO OCTAL (ASCII) AND TYPE 
aa MwLLIIIiiriiiiititiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiitittiitiiititity 
5024 3¢THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
$025 s@OCTAL (ASCII) NUMBER AND TYPE IT 
5026 a HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
5027 3¢ 
5028 38 MOV NUM, -CSP) 3s sNUMBER TO BE TYPED 
5029 36 TYPOS 3sCALL FOR TYPEOUT 
5030 ae -BYTE WN s3N*1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
5031 3¢ BYTE a 33Mel1 oR 0 
32 3¢ 331*TYPE LEADING ZEROS 
5033 3% :30=SUPPRESS LEADING ZEROS 
5034 34 
5035 pan an itwe HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
5036 3@$TYPOS OR $TYPOC 
5037 s@CALL: 
5038 36 MOV NUM, -C SP) s3sNUMBER TO BE TYPED 
5039 “ TYPON 33;CALL FOR TYPEOUT 
5041 | eSTYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
5042 3s@CALL: 
5043 3¢ MOV NUM, -(SP) 3;NUMBER TO BE TYPED 
poeg 3% TYPOC 3;CALL FOR TYPEOUT 
5046 015100 017646 000000 $TYPOS: MOV a SP), -CSP) 3sPICKUP THE MODE 
S047 015104 116667 000001 000211 MOvB 1(SP), SOFILL 33LOAD ZERO FILL SWITCH 
5048 015112 112667 000207 MOVB (SP)+,$ 1 3 s;NUMBER OF DIGITS TO TYPE 
pose eeatas 062716 000002 ~y , AS ay ssADJUST RETURN ADDRESS 
5051 015124 112767 000001 000171 ‘%sTYPOC: MOVB #1, SOF ILL 33SET THE ZERO FILL SWITCH 
5052 015132 112767 000006 000165 MOvVB 06,% ol 33SET FOR SIX(6) DIGITS 
S053 015140 112767 000005 000154 ‘%sTYPON: MOVB 5,4 33SET THE ITERATION COUNT 
5054 015146 010346 MOV R3,-CSP) 33SAVE R 
5055 015150 010446 MOV R4,-(SP) s3SAVE R4 
5056 015152 010546 MOV RS, -(SP) s3SAVE RS 
S057 015154 116704 000145 MOvVB SOMODE +1, R4 + GET THE NUMBER OF DIGITS TO TYPE 
5058 015160 NEG RS 
5059 015162 062704 000006 ADO 06 ,R4 3sSUBTRACT IT FOR MAX. ALLOWED 
5060 015166 110467 000132 MOvVB R4 , SOMODE ue IT FOR USE 
5061 015172 116704 000 MOvB $0F Iu, oe T THE ZERO FILL SWITCH 
S062 015176 016605 000012 MOV 12(SP),RS 1 PICKUP THE INPUT NUMBER 
5063 015202 005003 CLR R3 1 CLEAR THE OUTPUT WORD 
5064 015204 006105 1%: ROL RS ssROTATE MSB INTO “C” 
5065 015206 BR 3% 33GO DO MSB 
5066 015210 006105 2s: ROL RS 33FORM THIS DIGIT 
5067 015212 006105 ROL RS 
5068 015214 006105 ROL RS 
5069 015216 010503 MOV R5,R3 
5070 015220 006103 3%; ROL R3 33;GET LSB OF THIS DIGIT 
5071 015222 105367 000076 OECB $OMODE ss TYPE THIS DIGIT? 
5072 015226 100016 BPL 7% 338R IF NO 
5073 015230 042703 177770 BIC 177770,R3 23GET RID OF JUNK 
5074 015234 001002 BNE 4$ 33TEST FOR O 
5075 015236 005704 TST R4 +sSUPPRESS THIS 0? 
5076 015240 001403 BEQ 5% 3368R IF YES 





sates Sarina eas pee E wee aes, 37 USP eae te cat Tak ae NaS Se a Ra Sey 


SEQ 122 
MAINDEC -Z7-CVDVA-0 at 3OAC1052) 12-JNL-84 09:52 PAGE 124 
CvOVAD.P11 12-JUL -84 05:04 BINARY TO OCTAL CASCII) AND TYPE 

5077 015242 005204 4%; INC R4 +300N‘'T SUPPRESS ANYMORE 0'S 
5078 015244 052703 000060 BIS #'0,R3 ) sMAKE THIS DIGIT ASCII 
5079 015250 052703 000040 S$: BIS @' ,R3 ssMAKE ASCII IF NOT ALREADY 
$080 015254 110367 000040 MOVB R3,8$ ssSAVE FOR TYPING 
5061 015260 104401 015320 TYPE 88 33GO TYPE THIS DIGIT 
$062 015264 105367 000052 7$: DECB sOCNT ssCOUNT BY 1 
$083 015270 003347 BGT 23 338R IF MORE TO 00 
5084 015272 002402 BLT 6% +36R IF DONE 
5068S 015274 005204 INC R4 ss INSURE LAST DIGIT ISN’T A BLANK 
5086 015276 000744 BR 2s 33GO DO THE LAST DIGIT 
$087 015300 012605 6%: MOV (SP)+,RS s sRESTORE RS 
5088 015302 012604 MOV (SP)+,R4 s sRESTORE oa 
5089 0153504 012605 MOV (SP )+,R3 ssRESTORE R 
S090 015306 016666 000002 000004 MOV 2(SP),4(SP) 33SET THE STACK FOR RETURNING 
5091 015314 012616 (SP)+, (SP) 

015316 FTI + sRETURN 
5093 015320 000 83: -BYTE 0 ssSTORAGE FOR ASCII DIGIT 

015321 000 BYTE 0 ss TERMINATOR FOR TYPE ROUTINE 
5095 015322 000 SOCNT: .BYTE 0 +s0CTAL DIGIT COUNTER 
S096 015323 000 SOFILL: .BYTE 0 33ZERO FILL SWITCH 
5097 015324 000000 SOMODE: .WORD 0 ssNUMBER OF DIGITS TO TYPE 


ee = — 


G10 


SEQ 123 

MAINDEC -2Z-CVDVA-D ae i, as JU.-84 09:52 PAGE 125 
CVvDVAD.P11 12-JU_-84 05:04 AP DECODER 

5098 .SBTTL TRAP DECODER 

5100 8 § SSSSSSSSSSSSHSSSSSSSSSSSSSSSSSSSHSSSSSSESSSEEESSEESEEEEEEEEEEESE 

S101 s*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE “TRAP” INSTRUCTION 

5102 3@AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADORESS 

5103 3@0F THE DESIRED ROUTINE. THEN USING THE ADORESS OBTAINED IT WILL 

5104 3@GO TO THAT ROUTINE. 

5105 

5106 015326 010046 STRAP: MOV RO, -( SP) ssSAVE RO 

5107 015330 016600 000002 MOV 2(SP),RO 33:GET TRAP ADORESS 

5108 015334 005740 TST -CRO) ssBACKUP BY 2 

5109 015336 111000 MOvVB CRO),RO 33GET RIGHT BYTE OF TRAP 

5110 015340 006300 ASL RO ssPOSITION FOR INDEXING 

Sill 015342 616000 015362 MOV $TRPADCRO),RO + INDEX TO TABLE 

sie 015346 000200 RTS RO 33GO TO ROUTINE 

5114 

aie :3THIS IS USE TO HANDLE THE “GETPRI” MACRO 

5117 015350 011646 $TRAP2: MOV (SP), -CSP) ssMOVE THE PC DOWN 

5116 015352 016666 000004 000002 MOV 4(SP),2(SP) ssMOVE THE PSW DOWN 

ah 015360 000002 RTI ssRESTORE THE PSW 

ay -SBTTL TRAP TABLE 

5123 s*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 

5124 30BY THE “TRAP” INSTRUCTION. 

5125 

5126 F ROUTINE 

5127 , #  £=\eee6e0 

5128 015362 015350 STRPAD: .WORD ‘sTRAP2 

5129 015364 012670 $TYPE 3 sCALL*TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 

5130 015366 015124 $TYPOC ;;CALL*=TYPOC TRAP +2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 

5131 015370 015100 $TYPOS ;;CALL*TYPOS TRAP +3( 104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 

5132 015372 015140 STYPON ;;CALL*TYPON TRAP +4( 104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 

ass 015374 014654 $TYPDS ;;CALL*TYPDS TRAP +S( 104405) TYPE DECIMAL NUMBER (WITH SIGN) 

no 015376 013222 $GTSWR ;;CALL*GTSUR TRAP +6( 104406) GET SOFT-SWR SETTING 

5137 015400 013152 SCKSWR ;;CALL=CKSWR TRAP +7( 104407) TEST FOR CHANGE IN SOFT-SWR 

5138 015402 013434 $ROCHR ;;CALL=RDCHR TRAP +10( 104410) TTY TYPEIN CHARACTER ROUTINE 

or 015404 taney ne $ROLIN ;;CALL*=ROLIN TRAP +11(104411) TTY TYPEIN STRING ROUTINE 





———— a eo eee eee —oroerre—om—e—ewome— or oes > ee ee ee er eer er-ri“ eo ecoerren eee ese e pane 
& 2 aD 


MAINDEC -27-CVDVA-D 
CVDVAD.P11  12-JUL-84 05:06 
ABASE = 175610 1e 
_ ACDMI = 000000 1017 
| ACDM2 = 000000 1017 
| ACPUOP= 000000 1017 
| ADDRES 012356 44400 
| ADDWO = 000000 1017 
| ADDW1 = 000000 1017 
| ADDW10= 000000 1017 
| ADOW11= 000000 1017 
| ADDM12= 000000 1017 
ADDW1$= 000000 1017 
ADDUI14= 000000 1017 
ADDUIS= 000000 1017 
ADDU2 = 600000 1017 
ADDWS = 000000 1017 
ADDWS = 000000 1017 
ADDS = 000000 1017 
ADDS = 000000 1017 
ADDU? = 000000 1017 
ADOUB = 000000 1017 
ADDS = 000000 1017 
ADEVCT= 000000 1017 
ADEVH = 000001 1 
RENV = 000000 1017 
AENVH = 000000 1017 
AFATAL= 000000 1017 
AMADR1= 000000 1017 
AMADR2= 000000 1017 
ARADRS= 000000 1017 
AHADR4= 000000 1017 
AMANS1= 000000 1017 
AMAMS2= 000000 1017 
AMANSS= 000000 1017 
AMAMSS= 000000 1017 
AMSGAD= 000000 1017 
AMSGLG= 000000 1017 
AMSGTY= 000000 1017 
ANTYP1= 000000 1017 
ANTYP2= 000000 1017 
AHTYP$= 000000 1017 
AHTYP&= 000000 1017 
APASS = 000000 1017 
APRIOR= 000000 1017 
APTCSU= 000040 4591 
APTENV= 000001 2697 
APTSIZ= 000200 1128 
APTSPO= 000100 4586 
ASUREG= 000000 1017 
ATESTN= 000000 1017 
AUNIT = 000000 1017 
AUSUR = 071110 10 
AVECT1= 000300 10 
AVECT2= 000000 1017 
011326 41140 
BAUD = 007400 9216 
BAUDRA 007210 


MACY11 30A( 1052) 


1017 


1032 
4451¢ 


HI 0 


12-JL-84 09:52 PAGE 127 


CROSS REFERENCE TABLE -- JGcR SYMBOLS 


1058 


4461 44680 


3163 3847 4584 4791 468330 4867 


Tra 


SEQ 124 


I10 


MAINDEC -22-CVDVA-D ACY LA 30A(1052) 12-JUL-84 09:52 PAGE 128 
CVDVAD.P11  12-JUL-84 05:04 CROSS REFERENCE TABLE -- USER SYMBOLS 
BITMAS 012352 4417 44360 «44498 «4457 4.4660 
BITO = 000001 7960 
BITOO = 000001 786@ 49-796 865 886 907 
BITOI = 000002 785@ «795 gaa 864 906 
BITO2 = 7840 843 663 884 905 
BITOS = 000010 783@ 40793 842 862 904 
BITOS = 000020 782@ © 792 861 903 
| BITOS = 781@ 791 902 
| BITO6 = 000100 780@ © 790 839 859 880 901 
BITO7 = 7790 ~©=—- 789 838 879 900 
| BITO8 = 000400 7780 «788i 
BITO9 = 001000 777@ «6787020 48780 «4928 
BIT1 = 000002 
BIT10 = 002000 776@ «= 83S—s«88S 
BIf11 = 004000 7750 874 4935 
BIT12 = 010000 774@ «= 833 853 873 
BIT13 = 020000 773@ «= «832 852 872 4862 
BIT14 = 040000 7720 «= «831 851 871 4906 
BIT1S = 100000 771@ 830 850 870 
BIT2 * 000004 7940 
BIT3 = 000010 7930 
BIT4 = 000020 7920 
BITS = 000040 7916 
BIT6 = 000100 
BIT? = 000200 7890 
BITB = 000400 7 
BIT9 = 001000 7870 
BPTVEC= 000014 8030 
BREAK = 000001 686@ 1272 1285 1288 1302 1305 1319 
BRK = 010000 922@ 1260 4064 
CABLE = 020000 923@ 1996 2050 2141 2230 2319 2410 
CARDET= 010000 833@ 2075 42095_—Ss«é2115 
CKSMR = 104407 4851 4877 4905 51376 
CLR = 000000 6240 2916 4191 
CLRSEN= 832@ 2164 2184 2204 
COMSPD= 000100 916@ 
* 000015 711@ 4630 4640 
CRLF = 712@ 1152 4129 4372 4601 4640 
CYCLE 012224 1157 
DATA = 000017 9130 75 4276 
DATAIE* 000040 1739 1752 1755 1769 1772 «#81786 
DATAIN= 1 8300 1966 0 2443 1 2470 2487 2544 
DATLNG 011652 3656 3762 3857 42570 
DDISP = 177570 7180 1116 
DISPLA 001142 1116¢ 1124¢ 4854e  4950¢ 
DISPRE 000174 9330 
001254 1078@ 1161¢ 1166 1169 1171 1174 © 1177 
DLADOR= 175610 1078 1081 1083 1084 
DLVEC 1 1079@ 11646 3350 3472 3 
=» 177570 717 «| (989 4115 
OTR = 000002 844@ 1518 1521 1535 1537 1550 1553 
2431 2459 2485 
| EMTVEC= 1099¢ 11006 
| T 011026 3905e 3927 3933 39499 4016 4027 
| ERROR « 850e 3084 0s «3148 
| ERRVEC= 000004 799@ 1113 1114¢ 1125¢ 3911 49120 49140 


1324 
2510 


1791 
2568 


1180 
4136 
2072 


4917¢ 


2614 


3573 


3560 


3584 
2651 


1228 


2112 


3742 


3617 
2673 


4130 


2161 


SEQ 125 


4392 


2181 2201 





J10 


— 30A( 1052) 12-JU-84 09:52 PAGE 129 


-22-CVDVA-D 
MAINDEC -Z CROSS REFERENCE TABLE -- USER SYMBOLS 


CVDVAD .P11 12-JUL -84 


EVENOD= 000040 915¢ 

FALSE = 000000 4172@ 4179 

FLAG 011644 4179¢ 4206¢ 4211 4234 42460 

FRERR = 020000 8520 

FRFD = 924@ 1507 1574 2141 2230 2410 

GNS © eeeeee U 932 1151 4126 4134 4140 4371 4377 

Si72 5133 5135 5137 5138 5139 

| GTSUR = 1146 51350 

HOLD 011072 3968¢ 969¢ 3972 3985¢ 

| WOLOSC 011645 4191e 4196e 4202 42476 

| HOMLON= 4151@ 4177 

| HT * 000011 709@ 4599 

I 001272 1085@ 1205e 1226¢ 1229 1231 4280¢ 4283¢ 

ILLMEM= 811@ 1200 123% 

INITFL 012354 1154e 4420 4423¢ 44676 

INTFLA 012040 1212e 1217 33460 3386 3390 3412 3428 
4%le 45540 

INTSRV 012032 1201 3358 3473s 43510 

IOTVEC= 1097¢  1098¢ 

LF = 000012 710@ 4634 4640 

LOOP 001744 1155@ 4145 

MAINT = esse 86 1348 1361 1364 1378 1361 1395 
3544 5 3729 3752 3911 4073 

MASK = 000000 4258@ 4272¢ 42%e 4295e 

006422 2942 «9 2946 3021¢ 

MYTYPE 012042 43670 4864 

NEW 007242 3219e 3221¢ 3237¢  3239¢ 3248 3256 3258 

NUMBER 011030 925 3950@ 3975 33 

MUMBR 011746 42740 4275 4277¢ S 42960 

OLD 007246 31920 31946 3258 3276¢ 32780 

= 040000 esie 3105 3133 

PARITY= 000020 9140 

PBAUDS= 004000 8740 

PBAUDO= 010000 8730 

PBAUD1= 020000 8720 

PBAUD2= 040000 e710 

PBAUD3= 100000 8706 

PBR = 000200 917@ 3174 

PERR = 010000 6530 

PIRQ = 177772 716@ 

PIRQVE= 000240 8100 

PRO = 000000 733@ 3368 3417 3489 3576 3649 3755 

| PR1 = 000040 7340 

PR2 = 000100 7350 

PRS = 000140 7360 

PR4 = =:(000200 7370 

PRS = 000240 7380 

PRE = 000300 7390 

| PR7 = 000 7400 1420 2421 2521 2624 3359 

PS * 1777% 713@03=—s 714 

| PSé = 177776 7140 

| Cs 1103¢ 1104¢ 4520¢ 4521¢ 45300  4536¢ 

RATES 007170 3210 3289 460 32940 

| RBUF 001262 1061@ 1171¢ 11726 28683 2953 3008 3062 
3698 3765 3802 (400320 s_« 4077 4103 

RCSR 001260 1080@ 1169¢ 15186¢ 1521 1535¢ 1537 1550¢ 


ist a #& 


SEQ 126 
2510 
4384 4390 4396 5129 5130 §131 
4285 
3480e 3522 3526 3570e 3596 3600 
1400 2789 2848 2914 3196 3483 
3276 3278 33260 
33270 
3874 
3474 3885 3891 
45482 4549¢ 
3105 3133 3148 3207 3518 3660 
1553 1587 1600¢ 1603 1617*¢ 1620 





MAINDEC -2Z-CvD 
CVOVAD.P11 


K10 
VA-0 MACY11 SOAC1052) 12-4KL-84 09:52 PAGE 130 
12-JU-84 05:04 CROSS REFERENCE TABLE -- USER SYMBOLS 


1634e 1639 1663 1676¢ 1679 toe 1696 


2271¢ 2274 229i" 2 2339¢ 2342 
3 2459¢ 2461 2470 2485¢ 32e 
2633¢ 2635 2643¢ 2651 2665¢ 2673 
2974 3011 3227 3486¢ 8 3503 3510¢ 


643@ 1567 1600 cote 1617 1620 1634 


4007¢ 4008+ 4012 4020 4045¢@ 
631¢@ 2254 2274 2294 


007170 3303 
ROO70 3=6007171 33046 
RO110 007172 3305¢@ 
RO13S 007173 3306¢@ 
RO1SO0 007174 3307¢@ 
RO200 007177 33100 
RO3S0O 8=— 007175 3306¢@ 
007176 33096 
R10000 007207 3318¢@ 
R1800 007200 3311 
R2000 007201 3312¢ 
007202 3313¢ 
R3600 0072035 33146 
007204 3315¢ 
RSSTAC 001334 1067@ 1183 
R7200 007205 33160 
007206 3317¢@ 
011032 3951@ 40206 
SECREC= 635¢@ 2342 2362 2362 
SECXMI= 000010 Ay 1663 1676 1679 1693 1696 1710 
SET * 177777 A. 2719 2762 2603 2862 2931 2940 
SETCLR= 4151¢ 4202 


000006 
| SPECIA 012254 


30e 
| STACK = 001100 704@ 1095 


1639 


1715 
3502 


2544 
2863 
3573¢ 


3011 
3486 


2339 
3677 


2271 


2359 
3690 


2291 


2379 
37861 


2532 


2633 
3793 


4088 


L10 


2 aay 


0620 126S5¢ 1286 
1376¢ 8§=61381 1395¢ 1400 1430 1443¢ 1446 1460¢ 1465 1477 14862 1934 2720 
2749 2763 2769¢ 8 2646¢ 2914¢ 31966 3365¢ 3375 3415¢ 3483¢ 35446 3645¢ 3678 
3729e¢ §63752e § = 3782 3911¢ 3915¢ 3942¢ 3979¢ 4073¢ 40626 


SE 
MAINDEC -22-CVDVA-D ACYL SOA(10S2) 12-84 09:52, PAGE 131 a 128 
CVDVAD.P11  12-UL-84 05:08 CROSS REFERENCE TABLE -- USER SYMBOLS 
START 001336 936 10880 4553 
STKLMT= 177774 715¢ 
SuR «(001140 997@ 1093 1115* 1117 1123¢ 1130e 1144 4528 45416 4650 46876 4655 4862 

4874 ©4878 «= 4906.—s« 49200 49224928 4935 
SUREG 000176 934@ 1123 1144 4650 4663 
SMO. = 000001 7680 

| woo = 000001 75800768 

| Suo = 000002 7570767 
Suo2 = 7560 0766 

| §woS = 000010 735@ 0765 
Sus = 000020 7sa0 768 
suoS = 753@ 0763 
SMOG = 000100 762 
$0? = 000200 751@ 429761 
Su08 = 000400 760 
$09 = 001000 79@ «759 
Sui = - 000002 7670 
S10 = 002000 7480 
SWi1 = 004000 7470 
S12 = 010000 7460 
S13 = 020000 7450 
Sui4é = 040000 7440 
SW1S = 100000 743¢ 
SW2 = 000004 7660 
SWS = (000010 765@ 

Sua = - 000020 7640 

SWS = 000040 7636 

SN6 = (000100 7620 

SW? = (000200 7610 

SWB = 000400 7608 

SW9 = (001000 

TBITVE= 000014 010 

TBUF 001270 1084@ 11800 11616 2713¢ 27440 27960 286562 29240 30426 30526 31240 32160 34960 
36860 37900 39720 «4085s 

TCSR 001264 1 1174¢ 1175e 1272 1302 1305 1319 1324 1348 13610 1364 

TCSRHI 001266 1083@ 1177e 1178 3210 3289« 

TOATAO= 000001 907¢ 

TDATAl= 000002 9060 

TDATA2= 000004 9050 

| TDATAS= 000010 9046 
TDATAS= 000020 9030 
TDATAS= 000040 9026 
TDATAG= 000100 9010 
TDATA7= 006200 
TIME = 000000 4307@ 4318 
TIMER 011474 2723 2766 «© 2807-—isi«BSHC(ié‘SOSOCCSEB«C3694~=—Ss«378S)—S—s«37972=Ss«w092——s« 100 
TIMSAV 011642 4177e 4213 42240 42450 
TKVEC = 000060 8080 
TPVEC = 8098 
TRAN 011034 3889 39600 
TRAPVE= 000034 807@ i101e 11026 





M10 


SEQ 129 

MAINDEC -27Z-CVDVA-D MACY11 3OA(1052) 12-NX-84 09:52 PAGE 132 

CVOVAD.P11 12-JU -64 05:04 CROSS REFERENCE TABLE -- USER SYMBOLS 

TSTl 002060 1192¢ 

TST10 003412 1731¢ 

TSTil 093554 1807¢@ 

TSTi2 003716 1890¢ 

TST13 003756 1923¢ 

TST14 004016 1956¢@ 

TSsT1i5 6 1990¢ 

TST16 004136 2001 2045¢ 

TST17 004276 2057 2136¢@ 

TsT2 002226 1255¢ 

TST20 3% 2146 

TST21 004576 2236 2314¢ 

TST22 004736 2324 

TST23 005142 2416 2505¢ 

TST24 366 2516 2609¢ 

TST25 005554 2619 2691¢ 

TST26 005742 2701 2783¢ 

TST27 006056 284828 

TsT3 002410 1339¢ 

TST3O =: 006166 29000 

TST31 OOS4 24 2910 2956 2963 3020 30306 

TST32 006670 3075 3095 3113 3143 3158 3170¢ 

TST33 007252 3178 3187 3292 33410 

TST34)0=—s._: ©0750 34656 

TST3S 010152 3565 BE406 

TST3604=—6.: 01 0 366 3720 37386¢@ 

TST37 010614 3747 3820 38400 

TST4 14166 

TST40)03=—ss«©O11172 1 3947 

TST41 011354 4113 41240 

TSTS 002726 1503¢ 

TST6 003066 1511 15706 

TST7 003250 1576 1655¢ 

TYPDS = 104405 4143 4500 5133¢ 

TYPE = 104401 1138 4126 4132 4138 4369 4375 4382 4388 4394 4498 4501 4550 4604 
east 4662 4665 4678 4689 4708 4757 4760 4764 4857 4865 5012 5061 

TYPOC = 104402 4131 4137 4374 4361 4367 4393 4399 4664 51300 

TYPON = 104404 51320 

T = 104403 5131¢ 

VECTOR 012360 4442¢ 4453¢ 44696 

WAIT 011752 2436 2537 2565 25868 2648 2670 3047 3057 3129 3381 3425 3515 3591 
4221 & 3068 

WAS 011033 3952@ 4022 

WHICHB= 000002 4151@ 41868 

XMITIE= 000100 8800 ss 1443 1446 1460 1463 1477 1482 3365 3375 3415 3915 3942 

XMITRD= 000200 679@ 1934 2721 2749 2764 3679 3783 

ZZZ 011074 3963 39676 . 

2ZZZ 011170 4043 40466 

| $APTHD 001000 957 9630 

SASTAT= esesese 4613 4828 

sAaTYC 013752 4784 47860 

SATY1 013726 47620 

sATY3 013734 4589 47836 


$ATY4 013744 476S5e@ 4870 





MAINDEC -2Z-CVDVA-D MACY11 SOAC1052) 12-JU-84 09:52 PAGE 1335 
CVDVAD .P11 12-JU -84 05:04 CROSS REFERENCE TABLE -- USER SYMBOLS 
SAUTOB 001154 994@ 1148¢ 4656 4779 
$BASE 001 1058@ 4440 
$BDADR 001122 
SBDDAT 001126 9910 
$BELL_ 0011 1009¢ 4857 4890 
$BGNLE= 177777 1¢@ 
SCHARC 013146 4606 4616¢ 4625 4632+ 46370 
sCKSWR 013152 4650@ 5157 
| $CMTAG 001100 9778 1090 1091 1099 1105 1106 1107 
sCMS = 000000 1007¢@ 
SCNTLG 013677 4661 4774@ 
SCNTLU 013672 4678 4773@ 
sCPUuOP 001222 10320 
sCRLF 001171 1011@ 4605 4640 4689 4773 48665 4890 
s0BLK 015070 4976 5012 S020¢ 
sDEVCT 1204 1023@ 4436¢  4463¢ 
sOEvN = 001252 1059@ 4457 
SDOAGN 012462 aaa 4503 4509¢ 
sOTBL 015060 4961 5016¢@ 
SENDAD 012452 943 1136 4505e@ 4885 
SENDCT 012420 1105 
SENDMG 012471 4438 4513¢ 
SEMAL 012466 4501 4512¢ 
sENV 001214 1026@ 1142 2697 2906 3183 3847 4584 4791 48615 
sENVM 86001215 1029@ 1126 4586 4591 4793 
sEoP 012364 4428 
sEOPCT 012412 1105e¢ 4493@ 4497 
SERFLG 001103 960@ 48652e 4890 4924 4926 4932e 4954 
SERMAX 001115 966@ 110866 926 4949e 4954 
SERRFL = 1154@ }§=1155 1157@ 1161@ 1162 1164@ 1165 1166@ 1167 


| 


; =. oe 





SEQ 130 


1171@ 1173 
12008 


MAINDEC -2Z-CVDVA-D MACY11 3OA(1052) 12-JUL-84 134 
est 64 05:04 CROSS REFERENCE TABLE -- USER SYMBOLS 


CVOVAD.P11 12-JA - 


125 3i27@ 8§=6—©31420 
3197 3199@ 3200 
3219@ 3220 32210 
3279 32640 


3559 3565 
%17e 3618 
3460 «36550 
3699 37060 3 
37610 37650 3766 
3806@ 3608 38090 
38850 38890 
| 3906 «60 s«3911@ «©3912 
30680 3970 39720 
4021 40220 «4023 
a0e2e 464086340 40850 
| 419668 4197 42060 
4274@ 4278 
| 4319 43200 6321 
44320 064433 
| aa49e 60 44500s«4510 
| SERROR 014174 1099 48500 
| SERRPC 001116 967@ 4386 4859 
| 001254 10760 
| $ERTTL 001112 9640 4142 41440 
| 8€ 001162 10086@ 1107¢ 4861 
SETABL 001214 1027¢ 
$€ TEND 969 10600 
$FATAL 0011.76 10200 4379e 4380 
SFFLG 014172 4782¢ 4785¢e 48613 
SFILLC 001156 10056 
$FILLS 001155 1004@ 4640 
$F SAND= 000310 1@ 1219 1262 
1465 1 1 
1698 1717 1741 
1996 © 2013 
2321 
2593 40 2616 Ss 2683 
297% 46. 298—“<i‘«é 28 
3388 
3935 3977 4014 
$F $BAD= 000401 1@ ©1219 
1465 1484 1509 
1698 1717 1741 
1996 ©=-_- 2013 
229% 2321 2344 
2593 2616 «= (2653 
2976 3013 
3388 4060-3392 
3935 3977 4014 
$F $8LA= 000170 1¢@ 
$F $CAS* 000150 10 
$F SDEC= 000220 10 


09:52 PAGE 
3143 31776 
3202 3206 
3222 3231¢ 

3290 
3361 33620 
3416 34230 
hd 3476 
3510@ 3511 
3870e@ 3571 
ry 
37098 3710 
37680 3769 
3810 S81 90 

36910 
3915@ 3916 
3973 39 
4027@ 4026 
4086 4087¢ 
4207 42190 
4261 4263 
4323 4327 
44380 4437 
4452 44536 
4660- 4861 
4658 
4683 4890 
4819¢ 
4622e 48300 
1274 
1523 1539 
1757 1774 
2077 2097 
2364 2384 
2675 2699 
34% 
4018 4035 
1274 1290 
1523 1539 
1757 1774 
2077 2097 
2364 2584 
2675 2699 

3086 
430 3524 
4018 4035 


Bil 


3178 3166@ 3187 3192@ §6©©3193 3194@ §=63:195 31960 
320 32 32 


70 32100 11 32130 14 3216@ 3217 
32 3237@ 3236 3276@ 3277 7 

3347 3350@ 3351 3353@ 3354 33560 33570 

3.63 3365@ 3366 3375@ 3376 33790 3410 
3441 34446 Se 34470 3449 34710 

3476@ 0 8=—3479 3481 34830 34860 7 
3513@ 35166 3519 33440 3545 35470 3546 35566 

3573@ 3574 3561@ 3562 35840 35660 3567 
3627@ §=6—636260 )§=—36308 = 36318 3632 36450 
3667 3671 36760 36860 3687 36960 


4225 4237@ 4236 42410 4243 4272@ 4273 
4267 42884 1 43160 
43260 4329 4331 4335 43%61¢ 4362 44230 
44380 4439 4A440O 444) 44426 4443 44479 4AaaB 
4a54 44616 4462 44650 4864 
48690 
4949e 


2445 2465 2472 2512 2570 
27351 2631 30 2969 2973 
3107 3135 3150 3176 3185 3226 7250 
3562 3598 3602 3715 3744 3815 3849 
4066 4105 4190 4204 4236 4419 4422 
1307 1 1350 1366 1383 1402 1432 1448 


2412 2465 2472 2489 2512 2570 
2751 2831 2688 2930 2969 2973 
3107 3135 3150 3176 3185 3229 3250 


--- -——— - - eee me ee eC ——-- 


MAINDEC -22-CvDOVA-D MACY11 SOA(105S2) 12-4A-64 09:52 PAGE 135 
CvOVAD <P 12-JUL -84 05:04 CROSS REFERENCE TABLE -- USER SYMBOLS 


$F $600 000400 10 1217 1260 1272 1288 1305 1324 1348 1364 1381 1400 1430 1446 


1463 1507 1521 1537 1553 1574 1567 1603 1620 1639 1663 1679 
1696 1715 1739 1755 1772 1791 1615 1631 1646 1867 1901 1934 1 
1996 2011 2075 2095 2115 2141 2164 2164 2204 2230 2254 2274 
2319 2342 2362 2410 2443 2461 2470 2487 2510 2544 
2591 2614 2651 2673 2697 2726 2749 2769 2612 2629 2670 
2967 2971 2974 11 3066 BOSS 3105 3133 3148 
3174 31635 3 3227 3386 3390 3426 3522 3526 
3713 3742 38135 3847 3933 3975 4012 4016 4033 aod 4095 
4103 4168 4202 4264 4417 4420 
sF SIF = 000110 i@ §61217 1223 1260 1266 1272 1278 1268 1294 1305 1311 1324 1330 
1348 1354 1364 1370 1361 1287 1400 1 1430 1436 1446 1452 1463 
1469 1 1 1507 1513 1521 1527 1537 1343 1553 1559 1574 1580 
13867 1593 1603 1609 1 1 1639 1645 1665 1669 1679 1685 1696 
1702 1715 1721 1739 1745 1755 1761 1772 1776 1791 1797 1615 1621 
1831 1637 1848 1 1667 1673 1901 1912 1934 1945 1966 1979 1996 
200 2059 2063 2103 2115 2123 2141 2148 
2164 2172 2184 2192 2212 30 2238 2274 
2319 2326 es4e 2350 2362 2370 2390 2410 2418 2443 2449 
2461 2467 2470 2476 2487 2493 2510 2316 2550 2574 1 
2597 2614 2621 2651 2657 2673 2679 2697 2703 2728 2733 2749 2755 
2769 2774 2612 2617 35 2670 2875 2686 2692 2912 
2933 2938 2971 2974 2967 1 3011 3017 3066 
3077 3097 3105 3115 3133 3145 3148 3155 3174 3180 31863 3189 
3227 3233 3241 3271 3273 3396 
3403 3533 3539 3541 3560 3567 3596 
3607 3613 3615 3713 3722 3742 3749 3813 3822 3847 3853 3933 3939 
3975 3961 4012 4016 4033 4070 4095 4100 4103 
ot 4168 4193 4196 4202 4206 aot 4239 4417 4420 4425 a4 ts aaaa 
$F $INC= 000210 le) = 33199 3261 S664 3724 3768 3825 4260 4292 4320 4326 4336 4339 
= a 000200 
$F$ . 


«FEN = 


sFSOR = 


$F GRTN= 
$F $SEL= 
6F SUNT®= 
$F (WHI « 
$F SYES= 





Tat 


MAINDEC - 22 -CVDVA -D 
CVDVAD .P11 12-JUL -84 05:04 


001120 
001124 
012442 
013222 
000000 


001000 
001104 


sIFLEv= 177777 1@ 


SILLUP 012652 
SINTAG 001135 
$ISKO = 000001 


$ISKi = 000001 


MACY11 3O0A( 1052) 


SEQ 133 
12-JUL-84 09:52 PAGE 136 
CROSS REFERENCE TABLE -- USER SYMBOLS | 
1482 1507 1521 1537 1553 1574 1587 1603 1620 1639 1663 1679 
1715 1739 1755 1772 1791 1615 1631 1648 1867 1901 1934 1966 
2011 2050 2075 2095 2115 2141 2164 2184 2204 2230 2254 2274 
2319 2342 2362 2382 2410 3 2461 2470 2487 2510 2544 2568 
2614 2651 2673 2697 2749 2829 2886 2928 2967 2971 
3011 3084 3105 3133 3148 3174 3183 3224 3227 3248 
3386 3390 3428 3522 3526 3560 3596 3600 3713 3742 3613 
3933 3975 4012 4016 4033 4064 4103 4188 4202 4234 4417 442C 
5135 
4939 4940 49422 4953 
1217@ 1223@ 12600 1272@ 1278@ 128860 1294@ 1305@ 1311¢ 1324@ 13306 
1354@ 1364@ 13700 13861@ 13878 14000 406@ 1430@ 14360 1 1452@ 14636 
1482@ 1488@ 1507@ 1513@ 1521@ 1527@ 1537@ 1543@ 1553@ 1559@ 1574@ 1580¢ 
1593@ 1603@ 1609¢ i 1626@ 1639 16450 1663@ 1669 16796 1685@ 16966 
1715¢ 1721@ 1739@ 1745@ 1755@ 1761@ 1772@ #«42+11778@ #17916@ #17976 «#1615@ 18216 
1637@ 1 1654@ 18667@ 1873@ 19016 1912@ 1934@ 1945¢ 1 1979@ 19966 
2011¢ 20500 75@ 206 2103@ 2115@ 2123 2141@ 21486 
2172@ 2164@ 21920 2212¢ 2238@ 22540 22740 228620 
23190 2268 342@ 2350@ 2362@ 23700 2362@ 23900 24100 2418 2443¢@ 24490 
2467@ 24700 24760 24874 2493@ 25100 2518¢@ 25440 500 2574@ 25910 
2614@ 2621@ 2651@ 2657¢@ 26736 2697@ 2703@ 2728¢@ 2733¢@ 2749 «27556 
2774@ «6286120 26176 2635@ 28700 26756 e 2912@ 29280 
2971¢@ 29740 2967@ 29940 3001 3011¢@ 3017¢ 30778 
3097@ 3105@ 3115¢@ 3133@ 3145@ 3148@ 3155@ 3174@ 3180@ 3183@ 3189¢  3227¢ 
3256@ 32716 730 3908 34280 34e 03=—- 335220 
3541@ 35600 35670 35960 3613@ 3615@ 3713@ 3722@ 37420 37490 «36130 
3847@ 3653@ 3933@ 39390 3975@ 3961@ 4012@ 40160 40246 4033¢ 
40706 4100@ 4103@ 41090 41886¢@ 4198@ 42020 4208@ 42340 42390 4417¢ 
44340 4644556 
4536 4555¢@ 
4690 4779 
1223 1266 1272@ 1278 1268@ 1294 1305@ 1311 1324@ 1330 13480 
1364@ 1370 1361@ 1387 1 406 1430@ 1436 1 1452 1463@ 1469 
1488 1807@ 1513 1521@ 1527 1537@ 1543 1553@ 1559 1574@ 1580 1587¢ 
1603@ 1609 1 1626 1639@ 1645 1663@ 1669 16794 685 1696@ 1702 
1721 1739@ 1745 1755@ 1761 1772@ ©1778 1791@ 1797 1815@ 1621 1831¢ 
16480 61654 1667@ 1673 1901@ 1912 1934@ 1945 1966@ 1979 1996¢@ 3 
2026 2059 20 2063 2095@ 2103 2115@ 2123 2141¢@ 2148 21640 
21864@ 2192 @ 2212 2230 2238 22540 2. 2274@ 2282 @ 2302 
326 2342@ 2350 2362@ 2370 2362@ 2390 24100 18 24430 9 2461¢ 
24700 2476 2487@ 2493 2510@ 2518 r) 50 2574 2591¢@ 2597 
1 2651@ 2657 26736 79 2697@ 2703 2728@ 2733 2749 82755 27690 
2612@ 2617 26290 2635 28700 75 2886 2892 2912 2928¢ 2938 
2971@ 2987 1 3011@ 3017 3066@ 3077 3084 3097 3105¢ 
3133@ 3145 3146¢ 3155 3174@ 3180 3183@ 3189 3227@ 3241 3248@ 86. 3273 
34280 7 3522@ 3541 35600 567 35960 3615 3713@ 3722 37420 
3813@ 3622 3847@ 38653 3933@ 3939 3975e@ 39861 4012@ 4029 4033@ 4040 
4070 4095@ 4100 4103@ 4109 4188@ 4198 42020 4 42340 4239 aai7e 
2985 3256@ 3271 3390@ 3403 3526@ 3539 36000 3613 4016@ 4024 44200 


+ 


a? i 


SEQ 134 

MAINDEC -2Z-CVDVA-D MACY11 3OAC1052) 12-JUL-84 09:52 PAGE 137 

CVDVAD.P11 12-JUL-84 05:04 CROSS REFERENCE TABLE -- USER SYMBOLS 

$ITEMB 001114 985@ 4379 4861¢ 4869 4890 

$LF 001172 1012@ 4640 4764 4773 4890 

$LFLG 014171 4823¢ 48290 

$LOCTA= 177777 1@ 1207 1208 1218 1219 1223 1224 «©1232 «©1233 «= 1261. S's«1262,—S'—s«‘éi26SS—«i2677 
1273 1274 «1278 «©1279 «61289 's«1290)'s«a129@~=—'s«i129S,'i(—i‘ia30H—S—s«d1307~=S—s«d1311Sss«1312—S—s« 1325 
1 1330 1331 «1349 s«1350)'s«a1384)ss«1355)ss1365)s«a1366 02S s«1370 ss: 1371—Sssad 1383 
1387-1388) ss«1401sid 1406 1407 1431 1432 1436 1437 1447 1448 ~§ 1452 
14531464 s«1465.)Ss«1469 = s«1470's«1483)—ss«1484 0S ss«1488)=—S «1489 )=Ss«1508 =: 1809 s«1S13.s: 1514 

| 15221523. «S27. 1528S s«1538—S «1539's 1543. s«1844 Ss «1584-1555. «1559. s«1560—Ss«1575 

1576 1580 1561 1568 1589 1593 1594 1604 1605 1 1610 1621 1622 
1626 1627 1640 1641 1645 1646 1 1665 1669 1670 1 1681 1685 


| 1617 1622 1832 18633 1837 18638 1849 1850 18654 1855 1868 1869 
1873 1874 1902 1903 1912 1913 1935 1936 1945 1946 1967 1968 1979 
1980 1997 1996 2003 2012 2013 2027 2051 9 
2076 2077 3 2097 2103 2104 2116 2117 2123 2124 2142 
2143 2 2149 2165 2166 2172 2173 2185 2186 2192 2193 
2212 2213 2231 2239 2 2263 22 2276 2262 
3 2502 2303 2320 2321 2 2327 2343 244 2350 2351 
2363 2364 2370 2371 2383 2384 2390 2391 2411 2412 2418 2419 
2445 2449 aa 2463 2467 2468 2471 2472 2476 2477 2489 
2493 2494 2511 2516 2519 2545 2550 2551 2569 2570 2574 
2575 2592 2597 2615 2616 1 53 2657 2656 
2674 2675 2679 96 99 2703 2704 2726 2729 2733 2734 2750 
2635 2636 2670 2671 2875 2876 2887 2688 2692 2693 2907 2908 2912 
2913 2926 2927 2929 2930 2933 2934 2935 2938 2939 2941 2942 2943 
2945 2947 2959 2967 2969 2972 2973 2975 
2976 2985 2986 2967 2968 2969 2990 2991 2995 3001 3012 
| 3013 3017 3018 7 3077 3078 3065 3097 3098 3106 3107 
3115 3116 3134 3135 3145 3146 3149 3150 3155 3156 3175 3176 3180 
3161 3164 3185 3189 3190 1 3 3205 3223 
3228 3229 3233 3234 3235 3241 3242 3245 
3249 3250 3252 3253 3254 3257 3258 3259 3263 3271 
3272 3273 3274 3261 3262 3263 3387 3 3391 3392 3396 3397 3398 
| 3403 3434 3435 3 3524 3527 3528 3533 
3534 3535 3539 3540 3541 3542 3561 3 3567 3568 3597 3598 3601 
3002 3607 3613 3614 3615 3616 3665 3667 3669 
3670 3671 3714 3715 3722 3723 3724 3725 3726 3743 3744 3749 3750 
3769 3770 3771 3772 3773 3774 3775 38614 3815 3823 3826 
7 3853 3923 3926 3927 3928 3929 3930 3934 
| 3935 3939 3940 3976 3977 3961 3962 4013 4014 4017 4018 4024 
4030 4034 4035 4041 4065 4070 4071 4096 4100 
4101 4104 4105 4109 4110 4150 4185 4186 4189 4190 4193 4194 4195 
4196 4199 4203 4204 4209 4212 4213 4214 4215 4226 4227 4228 
4235 4236 4237 4238 4239 4240 4242 4243 4251 4252 4253 4257 
| 4261 4262 4263 4264 4265 4266 4287 4292 4293 4294 4297 4298 4300 
4301 4 4306 4321 4322 4323 4324 4325 4326 4327 4329 4330 4331 
4332 4333 4334 4335 4336 4337 4338 4339 4340 4341 4345 4346 4347 
4367 1 4415 4416 4418 4419 4421 4422 4425 4426 
pa pe 4435 Haag 4445 4455 4456 4458 4459 4465 4466 4472 
| $LPADR 001106 962@ 1109¢ 4930¢ 4946¢ 4951 4953 
| $LPERR 001110 963@ 1110¢ 1209 1269 1263 1299¢ 1316¢ 1345¢ 1359 1375¢ 1392 14278 1441s 


1457 14746 15166 1532¢ 1548 1584¢ 1596¢ 1614¢ 1631¢ 1660 1674 1690 1706 


| 





— we a 


fa a 


_ CVDOVAD.P11 12-JU-84 05:04 


MAINDEC -2Z-CVDVA-D 


| $LSTCN= 177777 


$LSTIN= 000000 


FL 


dy 3SOAC( 1052) 12-AL-84 09:52 PAGE 138 
CROSS REFERENCE TABLE -- USER SYMBOLS 


2481e 2528¢ 2555¢ 2579¢ 2639 2662¢ 2705+ 

3101le 3119¢ 3362 ¢ 3476¢ 3558 4880 
1@ 1207 1208 1217 1219 1223 1231 

1288 1 1305 1307 1311 1324 


1605 1609 1620 1622 1639 1641 
1685 1696 1696 1702 1715 1717 1721 
1772 1774 1778 1791 1793 1797 1615 
1850 1854 1667 1869 1873 1901 3 


2097 2103 2115 2117 2123 2141 
2186 2192 2212 22 2232 
2302 2319 2321 
2382 2384 2390 2410 2412 2416 2443 
2472 2476 2487 2489 2493 2510 2512 
2574 2591 93 2597 2614 6 2621 
2697 2699 2703 2728 2729 2733 2749 
2613 2617 28629 2631 2835 2870 2671 
2912 2927 292 29 2935 
2966 2967 2969 2971 2973 2974 2976 
1 3011 3013 3017 3077 
3133 3135 3145 3146 3150 3155 3174 
1 3202 3223 
3245 3248 3250 3253 
3386 3388 3390 33 3397 3396 3403 
3526 3528 3534 3535 3539 3541 3560 
3613 3615 7 


4096 410C 4103 4105 4109 4151 
4196 4202 4208 4206 4226 4227 4234 
4283 4267 4292 4293 4307 
4330 4331 4332 4335 4336 4337 4339 
4416 4417 4419 4420 4422 4426 4427 


ee 


f7 a 4 


1859¢ 


SEQ 135 
19316 19646  20086¢ * 
2355¢ 2375¢ 2428¢ 2455¢ 
2622¢ 2850 3035¢ ry 


2059 7S 2077 2083 
2164 2166 2172 2 
2256 2274 2276 


3430 34 3524 
3596 3596 3602 
3713 Uke 3722 3724 
3935 3939 3975 3977 
4040 4066 4070 





7 ee 


MAINDEC -7Z-CVDVA-D MACY11 3OAC1052) 12-JU-84 
05:04 CROSS REFERENCE TABLE -- USER SYMBOLS 


CvOVAD.P1i1 12-JU -84 


1 1757 1766 
1791 1 1793 
1832 18633 1842 


2205 2230 

2256 2267 

2295 2319 

2344 2355 e3 

2385 2 2410 
% 2437 2438 


2541 2542 oka 
2567 2568 2569 
2591 2592 2593 
2640 2643 

2665 


2602 2603 

2830 2631 2648 

2666 2667 

2909 2910 2914 

2931 2932 2933 
2953 2954 

2976 2963 

3035 3036 3042 


G11 


09:52 PAGE 139 


1739 1740 
1770 1772 
1615 1816 
1846 1 
1901 1 
1996 1997 
2056 2057 
2095 
2145 21 
2184 2185 
2235 2236 
2274 2275 
2323 2324 
2362 2363 
2415 2416 
3 2444 
2481 2462 
2532 
2355 2556 
2383 
2616 2618 
2649 
2671 2672 
2714 2718 
2744 2745 
2769 2770 
2607 
2851 2656 
2683 
2917 2916 
2937 2940 
2967 2968 
2994 2995 
3045 3047 
3066 3067 
3102 3105 
3135 3134 
3165 3164 
PY 
3217 3219 
3233 3234 
3257 
3264 3285 
3356 3357 
3380 3381 
3410 aeit 
3476 3476 
3503 3504 
3516 3519 
3548 3558 
3582 3584 
3600 3601 
3629 3630 
3665 3666 
3682 3683 





Hii | 


MAINDEC -2Z-CvOVA-D MACY11 SOAC1052) 12-4L-84 09:52 PAGE 140 
CvOVAD Pit 12-JUL-84 05:04 CROSS REFERENCE TABLE -- USER SYMBOLS 


3793 3794 3795 3796 3797 3796 3799 3802 3803 3807 

3810 3813 3814 3815 3819 3625 3826 3847 38648 3849 3850 3651 
3856 3857 3858 3859 1 3883 3884 3885 3889 3890 3891 
3896 3898 3899 3901 3902 3905 3 3911 3912 3915 3916 

3918 3919 3925 3926 3927 3928 3929 3933 3934 3935 3942 3943 
3945 3965 3966 3968 3969 3970 3972 3973 3975 3976 3977 3979 3960 
4000 4001 4003 4007 4012 4013 4014 4016 4017 

4018 4020 4021 4022 4027 4033 4034 4035 4037 

4065 4067 4073 4074 4077 4078 4063 4065 4086 4087 
4089 4091 4093 4103 4104 4105 4175 
4176 4177 4178 4179 4180 4166 41869 4190 4191 4192 4193 4194 4196 
4197 4203 4204 4206 4207 4211 4212 4213 4214 4215 4219 4220 
4221 4222 4223 4224 4226 4227 4234 4235 42% 4237 4241 
4243 4251 4253 4272 4273 4274 4275 4276 4277 4278 
4261 4283 4284 4285 4286 4287 4268 42869 4290 4291 4292 
4293 4296 4297 4298 4302 4303 4318 4319 4320 4321 4322 4323 
4 4 4326 4327 4328 4329 4330 4331 4332 4333 4334 4335 4336 

4337 4339 4340 4347 4348 4361 4362 440 4404 4417 4418 4419 
4421 4423 4425 4426 4428 4429 4432 4433 4436 4437 4435 
4439 aaa) e442 444% 44nd 4445 4447 44s 4aag 4450 4451 44Se2 
4453 4454 4457 4458 4459 4461 4462 4463 Mhed 4465 4466 4474 4475 
$LSTST= 177777 1@ #81207 1208 1217 1219 1223 1231 1260 1262 1266 1272 1274 1278 





Fa Aa ] 


Til 


SEQ 138 
MAINDEC -2Z-CVOVA-D wy SOAC1052) 12-JUL-84 09:52 PAGE 1 
CVDVAD.P11 12-JUL-84 05:04 CROSS REFERENCE TABLE -- USER SYMBOLS 
4186 4186 4190 4193 4194 4195 4196 4202 4204 4208 4211 4226 4227 
4234 42% 4239 4250 4256 4280 4262 4263 4264 4267 4292 4293 4300 


4426 4427 4434 4aag 444s 4446 4455 4457 4472 
$LSTTA= 000000 1@ §©1207 1208 1223 1224 1266 1267 1278 1279 1294 1295 1311 1312 
1330 1331 1354 1355 1370 1371 1387 1388 1406 1407 1436 1437 1452 
1453 1469 1470 1 1489 1513 1514 1527 1526 1543 1544 1559 1560 


| 1 2003 2026 2027 2059 2063 2103 2104 2123 2124 
2148 2149 2172 2173 2192 2193 2212 2215 2238 2239 2263 2262 
2283 2 2303 2326 2327 2 2351 2370 2371 2390 2391 2418 2419 
2449 2450 7 2468 2476 2477 93 94 2516 2519 2550 2551 2574 
2575 2597 2598 2621 2622 2657 2658 2679 2703 2704 2733 2734 
2755 2756 2774 2775 2617 2618 2635 2636 2675 2876 269 2912 
2915 2926 2927 2934 2935 29368 2939 2944 2945 2959 
2967 2966 2991 3001 3017 3018 3077 3078 3097 
3098 3115 3116 3145 3146 3155 3156 3180 3161 3189 3190 3201 3202 
3203 3 3224 3234 1 3242 3263 
3271 3272 3273 3274 3262 3283 3397 3396 3403 3404 3405 
3434 3435 3535 3539 3540 3541 3542 7 3568 3606 3613 
3614 3615 6 3666 7 3668 3722 3723 3725 3726 3749 3750 
3770 3771 3772 3773 3822 3823 3853 3923 924 3929 
3930 3939 3940 3961 3962 4024 4029 4040 4041 4070 4071 
4100 4101 4109 4110 4150 4151 4185 4186 4194 4195 4196 4199 
4209 4227 4226 4239 4240 4250 4251 4252 4253 4257 4262 4283 
4285 4293 4294 6 4301 4302 4306 4307 4322 4323 4324 4325 
4330 4331 4332 4333 4337 4338 4340 4341 4345 4346 4347 4367 4368 
4401 4403 4405 4415 4416 4426 4427 4434 4435 4445 4446 
4455 4456 4472 4473 Bak 
SMADR1 001226 1045¢@ 
SMADR2 001232 10490 
SMADRS 001236 1052¢ 
SMADR4 001242 1055¢@ 
SMAIL 001174 965 969 1018@ 1127 1142 2194 1257 1341 1418 1505 1572 1657 1733 
1809 1892 1925 1956 1992 2047 2138 2227 2316 2407 2507 2611 2693 
bee 2644 2902 3032 3172 3343 3467 3642 3740 3842 4062 4584 4867 
SMAMS1 001224 10390 
SMAMS2 001230 1047¢@ 
SMAMS3S 001234 1050¢@ 
SMAMS4 001240 1053¢@ 
¥ 001002 965¢@ 
SMCALL= 000000 1¢@ 
s*FLG 014170 4763¢ 4789 4624e 48260 
sMNEW 860013715 4665 4a777@ 
$MSGAD 001210 1025@ 4799¢ 4802 
SMSGLG 001212 1026@ 4604¢ 
SMSGTY 001174 1019@ 4797 4605+ 4617 46216 
sMSWR 860135704 4662 4775¢@ 
sMTYP1 001225 10400 
sMTYP2 001231 10486 
SsMTYPS 001235 1051¢ 


| sMTYP4 001241 1054¢@ 


| 
| 


ee -— 


ee ee ee a eee 


Jil ; 


SEQ 139 
MAINDEC -27-CVOVA-D MACY11 SOAC1052) 12-JU-84 09:52 PAGE 142 
CVOVAD.P11 12-JU-84 05:04 CROSS REFERENCE TABLE -- USER SYMBOLS 
$MXCNT 014652 4943 4953¢e 
$NESTL= 177777 1@ 1207@ 1217@ 1223@ 1231 1260@ 1266@ 1272@ 1278@ 126866 1294@ #1305@ # 1311¢ 
1348@ 613540 1364@ 13700 13610 





i744 A 


Kil 
MAINDEC -Z7Z-CVOVA-D a 3OAC1052) 12-JA-84 09:52 PAGE 143 
CVDVAD.P11 12-JUL -84 05:04 CROSS REFERENCE TABLE -- YSER SYMBOLS 
SPASTM 001006 9670 
$POWER 012660 4551 4556¢ 
SPWRAD 012646 4553¢ 
$PWRDN 012506 1103 4520@ 4548 
 $PWURNG 012642 4551¢ 
_ $PWRUP 012560 as 45360 
| $QUES 001170 1010@ 4640 4708 4757 4773 4890 
| SROCHR 013434 4721@ 5138 
| SRDDEC= sesece 5149 
$ROLIN 013554 a749¢@ = 8=655139 
$RDOCT= sesees UY 5140 
$RDSZ = 000010 47420 
SRTNAD 012464 4511¢ 
$R2A = eeeese VU 5140 
SSAVLE= 177777 eneke 29869 29900 3202@ 3206@ 32446 3245¢@ 3667¢ 
S$SAVRE= eseses UY 5140 
SSAVR6 012656 4529 
$SCOPE 0143574 1097 
sSETUP= 000157 1088¢@ 
4645 
$SSKO = 000236 Pe 
4267 
$STUP = 177777 1088¢ 
$SVLAD 014602 4915 
$SVPC = 000204 9410 
$SWR = 167400 1¢ 
1107 
1924 
2901 
4510 
Coney 
SSWREG 001216 10306 
$SWRMK= 000000 699 
STAGLE= 177777 1¢ 
13260 
1452¢ 
1576¢@ 
1617¢ 
19790 
| 21430 
| se 
25740 
2751¢ 
29 
31350 
| 
32610 
3535¢ 
3671¢ 
40350 


3671¢ 


37710 


377S¢@ 


SEQ 140 


4226@ 42270 





-----——-— > 71 


Ee Sm 


MAINDEC -22-CVDVA-D 


CVDVAD.P11 12-JU-84 05: 


$TAGNU= 000251 


STEMP = 000300 


Lil 


MACY11 SOAC10S2) 12-AL-64 09:52 PAGE 144 
04 CROSS REFERENCE TABLE -- USER SYMBOLS 


1968¢@ 199 1 2013¢ 
2142 2143@ 2165 2166@ 2185 

22760 2320 2321¢ 
24450 2463@ 2471 

25700 2615 26160 
2750 2751¢@ 2769 2770@ 2612 

2926 29270 29300 

2967@ 2968 29690 2972 29730 
3085 3086@ 8 3106 3107@ 3134 
3201@  3202¢ 3223 

3252 3257 
3396@ 3429 3430@ 8635235 

3601 3602@ 3607 3665 

3769 3770@ 637710 3774 3775¢@ 

3930@ 3934 3976 3977@ 

4104 4105¢@ 4151¢ 

35 42360 1 ® 
4327@ 4329 4330@ 43310 43534 

4427¢@ 44466 

1154@ 1155@ 1161@ 1162@ 1164¢ 

1176@ 1177@ 11 1160@ 11620 

1231@ 1232 1236@ 1237@ 12390 

12640 129460 

1320@ 1330@ 1345@ 13460 15540 

1379@ §61387@ 1392@ 15393@ 13950 

1452@ 1457@ 1456@ 14600 

1511@ 1513@ 1516@ 1517@ 1516¢ 

15349@ 1550@ 1551¢ 15 15776 

1601@ 1609@ 1614@ 1615¢@ 16176 

1661@ 16699 16740 6 16766 


— —— -— - ——-S— 


= 





— ee 
M11 | 

MAINDEC -2Z-CVDVA-D MACY11 SOAC1052) 12-4A-84 09:52 PAGE 145 

CVOVAD.P11 12-JUL -84 05:04 CROSS REFERENCE TABLE -- USER SYMBOLS 


2635e@ 28648@ 26490 26500 286518 2656@ 26570 2675@ 2663 26840 2892@ 29096 29106 
2912@ 2914@ 2915@ 2916@ 29178 2918@ 29190 29240 2925@ 29318 29320 29330 29346 


29360@ 29378 29360 2943 2953¢@ 29540 2955¢@ 29566 2962e@ 29630 29656 
2967e@ 29699 29900 3001¢ 3006@ 3009 3017@ %3O35@ 303%6@ 30420 3430 305260 30536 
3062@ 3063@ 30740 3O7Se@ 30776 308 3095@ 3097@ +3101¢ +#$+3102@ £31156 
3119@ 31200 3124@ 3125¢@ 3142@ 3143¢ 3145¢@ 3155@ 3177@ 317866 3180@ 318666 31876 
3169e@ 3192@ 3193@ 3194e@ 3195@ 3196¢@ 3197¢@ 32036 32070 32108 32116 
3213@ 3214@ 3216@ 3217 32190 3220@ 3221@ 32220 %3231¢@ 3232@ #32336 32376 
3238¢@ 32590 32410 32456 3253¢ 3263@ 32710 3273¢@ 32766 
32778 32760 32799 32610 BCR4e 33460 3347¢@ «33506 £3351¢ 
33530 3356@ 3357@ 3356@ 3359 3360@ 3361 33626 33630 3365@ 33666 33756 
3376e@ 3396¢@ 33970 3403¢ 3409 34100 3412@ 3413 3415@ 34166 34346 34406 
3a4ie 6 634a4e «6450 | 606A70 6064480) 60644900 O71 «323472006 06730 O4T4O 34760 34786 
34790 60634800 0 |6—534810 34846 34670 64960 6654970 8635100 3511¢ 3518¢ 35196 
35330 35410 354Se@ 35476 3548¢@ 3556¢@ 35590 3567¢ 
35700@ 3571@ 3573@ 35740 £35616 356S¢ 3567@ 3607¢@ 36060 36134 
3615@ 3617@ %18@ %3%190 %6200 36236 36270 3631¢ 3645¢@ 
36610 3671¢ 36870 36960 36990 37066 37098 37106 
3719@ 37200 37220 3724@ #=+%$725@ #=j+$37298 «£#+%37300@ £+37466@ «#2437478 «&37498 %37526@ #£++%37536 #«+3765¢ 
3766@ 37720 ##++%3775@ j$3790e@ +3791 «+;}38026 38036 38100@ 386190 
38651e@ 3653e@ 386600@ 3861¢ 3663e 38640 3868656 EABI 
36900@ 38691¢ 38956 3e96e@ 638990 3901¢ 3905¢ 3911¢@  3912¢ 
3915@ 39160 35916¢@ 39190 3925¢@ 3926 39390 39430 39440 394506 39660 
3968¢ 3970e@ 39720 3973¢@ 39798 39860e@ 3961¢ 4000@ 4001@ 40036 4007@ 40096 
4020@ 4021¢ 4027@ 40260@ 40290 4037@ 40380 40400 4067¢ 
4073@ 40740 40776 #£4078¢@ 40850 4100@ 41090 4175@ 4176¢ 
41778 41766 41796 41 8oe 41910 4192¢ 41930 41940 41960 41976 41338 4207@ 
42116 4214 42250 4227@ 42390 4272@ 4273@ 42740 
42786 4267@ 4286860 42690 42900 4291¢ 42930 4300e 864318¢ 
43190 £3240 43270 43320 43350 43366 43370 43390 43400 43456 43%61¢ 43620 44010 
&42 44248 443520 44336 QAX4O 44 44370 44386 44359 44AD9 444ie 
44436 E4488 44450 44470 44466 44430 44506 4451¢ 44526 44536 44546 4455¢@ 
44570 4458 44616 44620 44636 GAGAO 44720 
STESTN 001200 1021@ 1194¢ 1257¢ i1341¢ 1418¢ 1505+* 1572¢ 1657¢ 1733 1809¢ 1892¢ 1925e¢ 1958¢ 
1992e 2047e¢ 21380 2227e 2316 2407 2507¢ 2611ie 2693e 2785¢ 28644e 2902s 3032¢ 
31720 6063343e 0 | — 346 7e 60836420 =—s 5:7 38642¢ 4062e 4373 49456 
STIMES 001160 1007@ 1106¢ 1193¢ 1256 1263¢ 1340¢ 14176 15042 #1510¢ 1571s 1577 1656e 1732 
1606e 1691¢ 1924¢ 1957¢ 1991 20000 20462 20560 2137¢ 2145¢ 2226 2235¢ 2315¢ 
2323e¢ 24060 2415¢ 2515¢ 2610¢ 2618 26922 27000 27640 2643¢ 2901¢ 
e382e 3031¢ 3074e 30940 31426 3171¢ 3177¢ 3186 33420 a 35640 36416 
case 3739¢ 3746¢ 3619¢ 36412 386502 40612 4067¢ 4125¢ 4489¢ 4933e 4940 Aw de 
4 
sTKB 001146 10006 4643 4654 4671 4725 4731 
$TKS 001144 GRO &6435 4652 4668 a692@ 4723 4729 
| $TN = 000042 eo 689 1166 1193@ 1194 1250 1256@ 1257 1264 1336 1340e@ 861341 1413 
1417¢@ 1418 1495 1504¢@ 1505 1511 1566 1571¢ 1572 1578 1652 1656¢@ 1657 
1726 1732@ 861733 1804 1606e 1 1687 1691@ 1892 1920 1924e@ 1 1953 
1957@ 1958 1967 1991¢ 1992 2001 2040 2046@ 2047 2057 2131 2137@ 2138 
2146 2220 2227 2236 2310 2315@ 2316 2324 2398 0 2416 
2507 2516 2600 26106 11 2619 2692¢@ 2693 2701 
2778 2764e@ # 2785 2639 26436 2695 2901¢ 2910 2983 
3027 3031¢ 3075 3095 3113 3143 3158 3164 3171¢ 3172 3178 3187 
3333 33420@ 863343 3459 34660 3467 3565 3636 36410 2 3720 3735 


sTPB 001152 1002@ 4629¢ 


eee eke GGuV0@_ ee L,QC—OOOUtNt OO  EEE——EESVE_, 


MAINDEC -2Z-CVvOVA-D MACY11 SOA(10S5S2) 12-JL-64 09:52 PAGE 146 
CVDVAD .P11 12-JUL -84 05:04 CROSS REFERENCE TABLE -- USER SYMBOLS 


sTPFLG 001157 1006@ 4578 4640 





MAINDEC -22-CVDVA-D 


CVDVAD .P11 


$$ARGC= 000000 


| $$BYTE= 000403 


$8DST = 000067 
$$FLAG= 000001 


$$FROM= 000000 


$6GET4= 000000 
$sLOC = 012336 


23330 
26486 


Ble 


MACY11 SOAC1052) 12-AL-84 09:52 PAGE 147 
64 05:04 CROSS REFERENCE T 


ABLE -- USER SYMBOLS 


4291¢ 42950 
4451@ 44520 44530 44540 44636 
43680 
1266@ 1305@ 13240 1 13640 


12600 1266@ 1272@ 1274 
1326 1330@ 1348¢@ 1350 13540 
1 1430@ 861432 14360 14460 
1507@ 1509 1513@ 1521¢@ 1523 
1576 1380@ 158676@ 1 15930 
1645@ 1663@ 1665 1669 16790 


1912@ 1934@ 19 1943¢@ 61 
2075¢ 77 
2143 2148@ 21640 2166 21720 
22540 22620 22740 


29120 
2973 29740 #82976 29670 
3077¢@ 6 3097@ 8§©63105¢ 
3174@ 3176 3160@ 3163@ 3185 

32710 

3430 34340 3524 

36130 3713¢ 
3647@ 3849 3653e@ 63933@ 3935 
40246 4033@ 4035 


1235 1261@ 1262 1273@ 61274 
1365¢ 1366 1382@ 861383 14010 


tae - ————— 


ee. 





1290 
14310 


22748 22940 
25918 
2967@ 29718 29740 


1996@ 1996 
2097 2103@ 21150 
2192@ 22040 





MAINDEC -2Z-CvOVA-D 


MACY11 3SOA( 1052) 
:04 


CvOVAD.P11 12-JUL -84 05 
1464@ 1465 
1576 1588¢@ 
1697@ 1696 
1617 16320 
1997@ 1996 
2143 2165¢ 
2 2296 
5 24620 
2592@ 25935 
2751 27690 
29290 30 
2996 
3175@ 3176 
33870 
3597@ 3596 
3929 39348 
4095@ 4096 
4422 445846 
$$LOCN= 000000 4151¢ 3 
$$NETU= OOOO00O 4151@ 42376 
$$RTN1= 000242 4151@ 4237 
S$RTN2= 000245 4151¢@ 4242 
$sSRC = 000027 42750 
$sT0 = 000000 1157@ §61158 
2671 27166 
3127@ ©3130 
3656 3657 
3656@ 3657 
sOFILi 015323 S047¢ SOSie¢ 
$1 002126 1207@ 1232 
$10 002446 1349 13540 
$100 005260 23545 25500 
$101 005322 2569 25740 
$102 005 364 2592 25970 
$103 0054 2615 26216 
$104 005512 2652 265760 
$105 005554 2674 26790 
$106 005612 2696 27030 
$107 2726 27330 
$11 002474 1365 13700 
$110 005706 2750 2755¢@ 
$111 005742 2769 27740 
$112 006034 2612 2617¢ 
$113 006056 2630 26350 
$114 006150 2670 2675¢ 
$115 006 166 2687 26920 
$116 006224 2907 29120 
$117 006244 29260 3 
$12 002522 1382 13870 
$120 006262 2929 29340 
$121 006264 2933 29380 
$122 006 300 2941 29446 
$123 006 324 2947 2958¢ 
$124 006324 29660 2969 
$125 006370 2968 
$126 006 366 2972 29670 


12-JL-64 09:52 PAGE 146 
CROSS REFERENCE TABLE -- 


1463@ 1464 1506¢ 
1569 1604@ 1605 
1716@ 1717 17400 
1633 1649@ 1850 
2012@ 2015 20510 
2166 2165@ 2186 
23200 2321 23436 
2463 2471@ 2472 
2615¢@ 2616 26520 
2770 2612@ 2615 
oe eas 29470 
313 3067@ 30668 
3164e@ 3185 32250 
3388 3391@ 3392 
36010 37140 
3935 3976@ 3977 
4104@ 4105 41690 
4459 

a236e 4302 4307e 
4241@ 4251 

4250 42356@ 4297 
4252 4258e 4301 
24340 2437 25350 
2724 2761@ 2767 
33790 3362 32 
36760 3682 

3858 4087@ 4093 
5061 5096¢@ 


Cle 

USER SYMBOLS 
1509 1S22@ 861525 1538@ 1539 15540 
1621@ 1622 16400 641 5646 665 
1741 1756@ 8 1757 1773@ 81774 1792@ 861793 18166 
16666 1869 1902@ 1903 1935¢ 936 1967@ 1966 
2052 2076@ 2077 2097 2116@ 2117 21426 
2205@ 2206 2231¢@ 2232 22550 2275@ 2276 
2344 2363¢ 364 238630 2364 2411@ 2412 2h44e 
24880 2489 2511@ 2512 2s45e 25698 2570 
2653 26740 75 26960 2699 2726@ 2729 27500 
26300 2631 2670@ 2671 26876 29078 2906 
2948 29680 2969 2972@ 8 2973 2975@ 2976 29950 
308Se@ 86 3086 3106@ 3107 3334@ 3135 3149@ 3150 
3226 3226 3229 32498 3250 3257@ 3256 32590 

290 86634350 35230 3527@ 3526 3561@ 3562 
3715 37430 863744 3614@ 3615 36460 863849 39260 
4013@ 4014 4017@ 4016 40346 4035 4065@ 4066 
4190 42030 204 42 42% 44180 4419 44216 
4347 43680 4403 44060 4474 
4301 4307@ 4346 43660 4402 44060 4473 
4300 4307@ 4345 43680 4401 44060 4465 aaT> 
43070 4346 43680 4402 4473 
2538 25630 2566 2586@ 2589 26460 2649 26680 
2602@ 2606 2661@ 2667 30450 863048 3055@ 63056 
3426 3501@ 3507 3513@ 3516 35869e@ 3592 365S5¢ 
3695 3761@ 3762 3763 37 3786 3792¢ 796 
4219@ 4222 44260 4429 


SEQ 146 
MAINDEC -77-CVOVA -D MACY11 3OAC1052) 12-JU-84 09:52 PAGE 149 
CVOVAD.F 11 12-JU-84 05:04 CROSS REFERENCE TABLE -- USER SYMBOLS 
$127 06 366 75 2986Se@ 
$13 002552 1401 14066 
$130 006402 3001¢ 
$131 006420 3012 3017¢@ 
$132 006534 3067 3077@ 
$133 006562 3097¢@ 
$134 006604 3106 3115¢ 
$135 006654 3134 3145¢ 
$136 006666 3149 3155¢ 
$137 006726 3175 3180¢ 
$14 002622 1431 14360 
$140 006 746 3164 31890 
$141 006776 3203¢@ 
$142 006774 3201@ 3261 
$143 007144 a 
$144 007034 3223@ 3244 
$145 007070 32450 
$146 007056 32340 
$147 007066 3233 3241¢@ 
$15 002650 1447 1452¢ 
$150 007102 3249 
$151 007126 3252 3273¢ 
$152 007124 3257 3259 32630 
$153 007126 3262 3271¢ 
$154 007416 3387 
$155 007414 3391 33970 
$156 007416 3396 34030 
$157 007474 3429 34340 
$16 002676 1464 14690 
$160 007734 35416 
$161 007732 3527 35340 
$162 007734 3533 3539¢ 
$163 007776 3561 3567¢@ 
$164 010104 3597 3615¢@ 
$165 010102 3601 
$166 010104 3607 3613¢@ 
$167 010234 3665 
$17 002726 1483 1 
$170 010232 724 
$171 010360 3670 37 
$172 010356 3714 37220 
$173 010424 3743 37490 
$174 010470 3769 37720 
$175 010466 37700 
$176 010614 3774 38260 
$177 010612 3614 38220 
$2 152 1218 12230 
$20 002764 1506 1513¢@ 
$200 010652 Ss 
$201 010764 3923@ 3926 
$ 011000 3926 39 
$203 011010 3934 39390 
$204 011070 3976 3961¢ 
$205 011150 4013 
$206 011144 4017 40240 
$207 011164 4034 40400 


a ee C+ +e ee Oe >= oes or _— 


a ee ee 6 | + Se - -C—™” ta a 


Ele 
SEQ 147 

MAINDEC -2Z-CVDVA-D MACY11 3SOAC105S2) 12-HL-84 09:52 PAGE 150 
CVDVAD.P11 12-JUL -84 05:04 CROSS REFERENCE TABLE -- USER SYMBOLS 
$21 003012 1S22 1527¢ 
$210 011230 4065 40700 
$211 011312 41006 
$212 011322 aoa 41090 
$213 011646 4237 42500 
$214 011650 a2he 42520 
$215 011516 4185@ 4226 
$216 011622 4212 4214 42270 
$217 011536 4189 41940 
$22 3040 1538 1543¢ 
$220 011544 4193 41986 
$221 011562 4203 4208¢@ 
$222 011634 4235 42390 
$223 011750 4297 43000 
$224 011750 4301¢ 
$225 011714 4281 42846 
$226 011710 42862@ 4292 
$227 011740 4286 42930 
$23 1554 1559¢ 
$230 012030 azase 
$231 012030 43460 
$232 011776 4321 43240 
$233 011772 4322@ 4339 
$234 012022 4 
$235 012010 4329 43320 
$236 12006 43300 43 
$237 012020 4334 4337@ 
$24 003124 1575 1 
$240 012222 44016 
$241 012222 440206 
$242 012362 4465 44720 
$243 012362 44736 
$244 012224 4415e@ 4458 
$245 012310 448 44456 
$246 012250 BAS) 44260 
$247 012256 4425 4a 
$25 003144 1588 1593¢ 
$250 012330 4455¢ 
$26 003172 1604 1609¢@ 
$27 003220 1621 16266 
$3 002264 1261 
$30 003250 1640 1645¢@ 
$31 003306 1664 16696 
$32 003334 1680 1685¢@ 
$33 003362 1697 1702¢@ 
$34 003412 1716 1721¢ 
$35 003450 1740 1745¢ 
$36 003476 1756 1761¢@ 
$37 003524 1773 1778¢ 
64 002304 1273 1278¢ 
$40 003554 1792 1797¢@ 
$40CAT= cesses BEDR AAO 
$41 003612 1616 1621¢ 
$42 003640 1632 18376 
$43 3666 1849 18546 
$44 003716 1668 18730 

man es 


rid 


MAINDEC -2Z-CVDVA-D ay ay 30A(1052) 12-JL-84 09:52 PAGE 151 
CVDVAD.P11 12-JUL -84 05:04 CROSS REFERENCE TABLE -- USER SYMBOLS 
$45 003756 1 1912¢ 
; 004016 1935 1945¢ 
$47 004 1967 19796 
$5 002332 1269 12946 
$50 004114 1997 2003¢ 
$51 004136 2012 20260 
$52 004174 2051 2059¢ 
$53 004222 2076 2063¢ 
$54 2103 
$55 004276 2116 2123¢ 
$56 004334 2142 21480 
$57 004 362 2165 2172¢ 
$6 002360 1 1311¢ 
$60 004410 2185 21926 
$61 004436 2 2212¢ 
$62 004474 2231 22380 
$63 004522 2255 22626 
$64 004550 2275 22820 
$65 004576 23026 
$66 004634 
$67 2343 2350¢ 
$7 002410 1325 13300 
$70 004710 2363 23700 
$71 004736 2383 23900 
$72 004774 2411 24180 
$73 2444 
$74 005102 2462 2467¢ 
$75 005114 2471 24760 
$76 005142 24930 
$77 2511 2516¢ 
‘ = 015406 9320 941 9420 9446 9466 9476 
1066@ 1994 1109 1110 1152@ §=6©:1218 1219 
1269 1306 1307 1325 1326 1349 
1402 1431 1432 1447 1448 1 1465 
1538 1539 1554 1555 1575 1576 15868 
1641 1665 1680 1661 1697 1698 
1773 1774 1792 1793 1616 1617 1832 
1903 1935 1936 1967 1 1997 1996 
2097 2116 2117 2142 2143 2165 
2232 2255 2275 2276 2296 
2383 2384 2411 2412 2445 2462 
2512 2545 2570 2592 2593 
2696 2699 2726 2729 2750 2751 2769 
2671 2687 2907 2930 
2972 2973 2975 2976 2995 dl2 
3107 3134 3135 3149 3150 3175 3176 
9 3257 3259 3 
3523 3524 3527 3528 3561 3597 
3744 3614 3615 3928 3929 
4017 4018  YoRe | 4035 
4203 Bod 4235 4236 4372@ 43865¢@ 4391¢ 
4512 4516 4532 4556 4640 4643 47720 
| |$ASTA= seeses tJ 4763 4786 
. $x = 001000 9530 958 


953 9540 9560 9580 
1232 1233 1261 1 
1350 1365 1 1382 
1483 1484 1506 1509 


SEQ 148 





—_—-—--—- -—_, 


ees 


612 


SEQ 149 

MAINDEC -2Z-CVDVA-D MACY11 3OAC1052) 12-JU-84 09:52 PAGE 153 
CvOVAD.P1i1 12-JUL-84 05:04 CROSS REFERENCE TABLE -- MACRC NAMES 
BEGIN 1e 
BGNHRD 1¢@ 

1¢@ 
BGNINI 10 
BGNMOD 1@ 4147 
BGNMSG 1¢e 
BGNSF T 1@ 
BGNSRV 1¢@ 863959 3994 
BGNSUB 1@ 861208 1268 


1¢ 
BRESET 1@ 11864 8§=«1321 
3907 4110 
CALL 1@ 1156 2434 
3379 23 3500 
CASE 1¢ 
CKLOOP 1@ 1674 1914 
CLRVEC 1@ 1233 3441 
COMMEN 1@ 83= B10 
DECR 10 
DECRU 1¢ 
DEF AUL ie 
DE VREG 10 
DEVTYP 10 
DISPAT 1¢ 
ELSE 1@ 862932 3232 
END 1¢ 
ENDCLN 10 
EN OM 1@ = B11 
ENDDEC 10 
ENDOO 1@ 2988 ©3243 
ENDHRO 10 
ENDeta 10 
ENDIF 1@ 1222 1265 
1512 1526 1542 
1777 17% ~— 1 
2147s 2171_—Sts 2191 
2475 = 2492 1. 
2874 «= «2891s 2911 
3188 3270 
3938 
ENDINC 1@ 3280 3723 
ENDINI 16 
ENDLOO 1@ 4225 
ENDMOD 10 
ENDMSG 16 
ENDRTN 1@ 4249 4299 
ENDSEL 10 
ENDSFT 10 
ENDSRV 1@ 3987 7 
ENDSUB 1@ 1224 #=61279 





— 7 


MAINDEC -22Z-CVDVA-D 


CVOVAD.P11 
2303 
2636 
ENDSW 1¢@ 
ENDTST i@ 
2214 
3830 
| EQUALS 1¢ 
ERROF 1¢@ 
ERRHRD 1¢ 
1556 
1651 
2345 
2614 
ERROR 705¢@ 
1541 
1835 
2298 
2772 
3394 
ESCAPE 1¢@ 
EXIF ie 
EXIFB 1@ 
EXIT ie 
2954 
3849 
GETPRI 1¢@ 
GETSER 1¢@ 
GPHARD 1@ 
GPRMA 1¢ 
GPRYD 1¢ 
GPRAL 1° 
HEADER 16 
IF 1¢ 





12-JU-84 05:04 
2351 2371 
2876 3078 
1244 1332 
2304 2392 
4050 4119 
1220 
1275 1291 
1590 1606 
1870 1906 
2365 2385 
2832 2672 
3431 3529 
1221 1276 
1557 1591 
1852 1871 
2346 2366 
2615 2633 
3401 3432 

6116 
4210 

1262 1509 
2961 3019 
3946 

611¢ 

611@ 11390 
1216 1259 


2391 
3098 


2451 
3116 


1490 
2601 


2477 
3156 


1561 
2681 


2055 
3112 


Hie 
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2494 
3406 


1647 
2776 


2551 
3437 


1723 
2637 


CROSS REFERENCE TABLE -- MACRO NAMES 


2575 
3548 


1429 


2617 
3718 


SEQ 150 
2775 2819 
2030 2125 
3634 3730 
1524 1540 
1618 1834 
2277 2297 
2752 2771 
3268 3393 
1486 1525 
1795 1819 
2258 2278 
2731 2753 
3152 3269 
2699 2908 
3745 3818 


| 
| 
| 
| 
| 
| 
| 
| 


MAINDEC -2Z7-CvDVA-D 


CvOVAD.P11 

2068 

2250 

2439 

2634 

2850 

3041 

3206 

3352 

3447 

3546 

3644 

3819 

3943 

4081 

4360 
LOCAL 1@ 
LOOP 1@ 
MSG 1166¢@ 
2312 
34590 
T 10 
NEWTST ie 
3636 
NOLOCA 1¢@ 
POINTE 1¢ 
1e 
PRINTB 1¢ 
PUSH 1¢@ 
REPEAT 1¢@ 
REPORT 1¢@ 
RETURN 1¢ 
ROUTIN 1e 
SAVR14 1¢ 
SCOPE 7060 
2136 

3738 
SELECT 1¢@ 
SETPRI 1@ 


12-JU -84 
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05:04 CROSS REFERENCE TABLE -- MACRO 


2108 
290 


NAMES 

2157 2160 
2336 2355 
2531 

2712 2737 
2923 2930 
3119 3123 
3236 3238 
3364 3374 
3476 3479 
35865 3616 
3726 3746 
3894 3897 
4006 4019 
4205 4223 
4446 

2776@ 2780 
4057 

1566 1652 
2686 2778 
4542 4825 
45268 4786 
1655 1731 
2783 2642 
3417 3489 


2177 2180 
2358 2375 
2555 2559 
2743 27868 
2935 
3142 3177 
75 3277 
3411 
3482 3485 
3618 3622 
3751 3764 
poo 3904 
4271 4273 
4452 
2 131¢ 
2695¢@ 2697 
1728 1804 
2639 2695 
4826 5007 
4788 4809 
1807 1890 
2900 3030 
3576 3649 


4966 


1956 
3341 


3874 


1990 
3465 


2045 
3640 
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CvOVAD.P11 12-JU-84 05:04 CROSS REFERENCE TABLE -- MACRO NAMES 
4742 4781 4636 4892 4956 5023 5100 
STRUCT 1¢ 
SWRSU 1e 61l@ 1111¢ 
TRNTRP 8 865121¢ 
TYPBIN 1 611¢ 
TYPDEC 1@ 611@ 4142 449g 
| TYPNAM 1¢@ 611@ 1132 
TYPNUM 1¢@ 611¢ 
| TYPOCS 1@ 611¢ 
| TYPOCT i¢ 611¢@ 4130 413% 4373 4380 4386 4392 4396 46635 
| TYPTXT 1@ 811@ 4126 4132 4138 4369 4375 4382 4388 4394 
— -. 4 1230 2939 3924 4456 
UNTIL 
WAITMS 1@ 862433 25354 2562 2585 2645 2667 3044 3054 3126 3376 3422 3512 3588 4216 
WHILE 1@ 62965 3222 
WHILEB ie 
$ ADDON 1@ 1207 1206 1217 1219 1260 1262 1272 1274 1288 1290 1305 1307 1324 1326 
1348 1350 1364 1366 1381 1383 1400 1402 1430 1432 1 1448 1463 1465 1482 
1484 1507 1509 1521 1523 1537 1539 1553 1555 1574 1576 1587 1589 1603 1605 
1620 1622 1639 1641 1663 1665 1679 1681 1696 1698 1715 1717 1739 1741 1755 
| 1757 1772 1774 1791 1793 1615 1617 1831 1833 1648 1850 1867 1869 1901 1903 
1934 1936 i 1 1996 1996 2011 2013 2050 2075 2077 2095 2097 2115 
2117 2141 2143 2164 2166 2164 2186 2206 2230 2232 2254 2274 2276 
2319 2321 2342 2344 2362 2364 2382 2384 2410 2412 2443 2445 2461 
2463 2470 2472 2487 2489 2510 2512 2544 2546 2568 2570 2591 2593 2614 2616 
2651 2653 26735 2675 2697 2699 2726 2729 2749 2751 2769 2770 2612 2613 
2631 2670 2671 2906 2927 2926 2930 2935 2945 2946 2948 
2966 2967 9 2971 2973 2974 2976 3011 3013 3068 3064 
3105 3107 3133 3135 3148 3150 3174 3176 3183 3185 3199 3201 
3223 3227 3229 3235 3386 3388 
3390 3392 3396 3426 3430 3522 3528 3535 3560 3562 3596 3598 
3667 3671 3713 3715 3742 3744 3768 3770 3771 3775 38613 
3615 3847 S849 3923 3924 3930 3933 3935 3975 3977 4012 4014 4016 4018 4033 
4064 4066 4096 4103 4195 4151 4185 4186 4188 4190 4195 4204 
4234 42% 4258 4260 4262 4263 4267 4307 4320 4322 4323 4327 4328 4330 
aan —, 4335 4368 4406 4415 4416 4417 4419 4420 4422 4427 4446 
$BRANC 1¢@ te 1232 1261 1273 1269 1306 1325 1349 1365 1382 1401 1431 1447 1464 





MAINDEC -2Z-CvDVA-D 


CVDOVAD.P11 12-JU -84 


2946 2967 
3248 
| 3975 4012 
$CrK1 1@ = §61154 
1212 123% 
1457 1474 
1736 1750 
2106 
27135 2737 
2955S 
3186 3192 
3350 
3472 3473 
3660 3664 
3883 
4177 4179 
4a4aso 4436 
sCKOP2 1@ = 861171 
1460 1477 
1845 1862 
2459 
3353 
3617 3619 
3965 3968 
44a9 4451 
$CKRE 1@ 3285 
$CMND 1@ = 8§=61217 
1507 1521 
1772 1791 
2141 2164 
2470 2487 
2967 
3256 
3933 3975 
sCOMPA 1@ 8§=61217 
1507 1521 
1772 1791 
2141 2164 
2470 
2670 
3174 3183 
3664 3713 
4202 42 
$COUNT 1@ 81157 
3379 3423 
$00 1 2967 
sELSE 1¢@ 
sERRMS 10 
SEXIFA 1¢@ 
sExIFO 1@ 
sEXIF2 1@ 864211 
sEXxIF3 1¢@ 
$GENBR i@ 1218 
1483 
1756 1773 


MACY11 30A( 1052) 
05:04 


12-JUL-84 09:52 PAGE 157 
CROSS REFERENCE TABLE -- MACRO NAMES 


1306 
1868 


2247 2267 2267 2323 2335 
2355 2579 2618 2635 2639 

2683 2909 2916 2918 
3074 3062 3094 3101 3119 


3105 3133 3148 3174 
3526 3560 3596 3713 
4188 4202 4234 4417 4420 
1348 1 1381 1400 1430 
1 1639 1663 1679 1696 


1934 1966 1996 2011 

2294 2319 e342 2362 2382 
2651 73 2697 27268 2749 
2974 3011 


1325 1349 1365 1382 1401 


1902 1935 1967 1997 2012 


1 1463 1482 
1715 1739 1755 
2095 2115 
2410 2443 2461 
2906 2928 


1 1463 1482 
1715 1739 1755 

2115 
2410 2461 


464 
1697 1716 1740 
2096 


MAINDEC -22-CVvOVA-D 


CVOVAD .P1il 12-AL -864 05:04 


2116 
2462 


$GENTA 


sIF 


sIFCOD 


$IFCON 
sIFOPR 


sLET 


So ee 


Lie 


~w SOAC 1052) 12-KA-84 09:52 
CROS 


PAGE 156 
S REFERENCE TABLE -- MACRO NAMES 





MAINDEC -27-CVOVA -D 
CVDVAD .P11 


$LPCNT 


| $OPADO 


$OPAND 


| $OPCD1 


sOPCD2 
$OPCOD 


sOPCOM 
sOPDEF 


12- JU -84 05 
2639 2643 
2656 2683 
3052 3062 
3210 3215 
3350 3357 
1448 3471 
3558 3564 
3660 3686 
3850 3880 
3965 3968 
4065 4175 
4423 4432 
3199 
1172 1175 
3771 3965 

4275 
1172 1175 
1477 1518 
1862 2072 
2485 2532 
3265 3353 
3617 3619 
3942 3988 
4268 4290 
4268 4295 
1172 1175 
1477 1518 
1862 2072 
2485 2532 
3285 3353 
3617 3619 
3942 3944 
4268 4290 
4295 
1154 1157 


MACY11 SOA(1052) 12- 
04 CROs 
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3008 3035 

3192 3194 3196 
3289 346 3350 
3445 


3202 3237 
3573 35861 3584 
3911 3915 
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B12 


SEQ 157 

MAINDEC -22 -CVDVA-0 MACY11 3OA(10S2) 12-JUL-84 09:52 PAGE 1 

CVDVAD.P11 12-WUL-84 05:04 CROSS REFERENCE TABLE ~~ HACRO NAMES 
4196 4206 4272 4280 4318 4320 4328 4423 4432 4436 4438 4440 4442 4447 = 4461 

sOPR1 1@ 3202 3667 3771 4263 4295 4323 4331 

$OPR2 1@ 1171 1174 1177 1180 1226 1228 1237 = 1285 2 1319 1361 1378 1395 1443 
1460 1477 1518 1535 1550 1600 1617 1634 1676 1693 1710 1752 1769 1786 1828 
1845 1862 2 21120 2161S 2181S 2201S 2251S 2271) 2291S 2339) 2359) 2379S 2431 
2459 2532 3 3 3 2665 2789 28648 2914 3196 © 3237'S s«3239 
3284 «33530 'si«i336S)2=— 3375) (i415 445483486510 3547 3573. 35810-35840: 3586 
3617 3619 3706 46 3709S's«3729°=Cfs«35752 3911 3915 3918 3942 3944 


$OPSHF 1@ 4288 
$0PSUB 1@ 864224 
$OPSWB 1@ 
Seat 
$ 
$PuT 1@ 8 2435 2536 2587 2647 2669 2719 2762 2503 2862 3046 3056 3128 3380 
— 3502 3514 3590 3677 3690 3761 3793 4220 
$STRUC é 
$SUBON 1@ §©1223 1231 1278 1311 1330 1354 1370 1387 1406 1436 1452 1469 
1488 1513 1527 1543 1559 1580 1593 1609 1626 1645 1669 1685 1702 1721 1745 
1761 1778 1797 18621 1837 16354 1873 1912 1945 1979 2003 2059 2103 
2123 2148 2172 2192 2212 2262 2302 2326 2350 2370 2390 24168 2449 
7 2476 2493 2518 2574 2597 1 2657 2679 2703 2733 2755 2774 2617 
2835 2875 2912 2934 2938 2940 2958 2965 2967 3001 3017 3077 
3097 3115 3145 3155 3180 3189 3203 3241 3245 3253 3263 3271 
3273 3397 3403 434 3534 3539 3541 3567 3608 3613 3615 3668 
3671 3722 3724 3725 3749 3772 3775 3822 3826 3853 3925 3939 3961 
4040 4070 4100 4109 4194 4196 4208 4226 4227 4239 4250 4 4267 4292 


$ THEN 1@ 8 1217 1260 1272 1268 1305 1324 1348 1364 1381 1400 1430 1446 1463 1482 
1507 1521 1537 1553 1574 1567 1603 1620 1639 1663 1679 1696 1715 1739 1755 
1772 1791 1615 1631 1646 1867 1901 1934 1 1 2011 2075 2115 
2141 2164 2164 2230 2254 2274 2319 2342 2382 2410 2443 1 
2470 2487 2510 2544 2591 2614 2651 2673 2697 2749 2886 2928 
2946 2971 2974 3011 3105 3133 3148 3174 3183 3227 3248 
3386 3390 3428 3522 3526 3560 3596 3713 3742 3613 7 3933 3975 4012 
4016 4033 4103 4188 4202 4234 4417 4420 

sTILA 16 

sTILO 1¢@ 

SUNTL2 1@ 2940 3925 

SUNTL3S 1e 

sWHILE 1@ 2966 3223 


$$O0EFA 10 

$ SENDS 1¢@ 

$SERRO 16 

$$ESCA lé 6110 

$ $GEN 1@ 1207 1223 1266 1276 1294 1311 1330 1354 1370 1387 1406 1436 1452 1469 
1486 1513 1527 1543 1559 15860 1593 1609 1626 1645 1669 1685 1702 1721 1745 
1761 1778 1797 1637 18654 1673 1912 1945 1979 2003 2026 2059 2083 2103 
2123 2146 2172 2192 2212 2238 22862 2302 2326 2350 2370 2390 8 9 
2467 2476 2493 2516 2550 2574 2597 2621 2657 2679 2703 2733 2755 2774 2617 
2835 2675 2892 2912 2934 2985 2987 3001 3017 
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4402 4405 34 
$$GETS 1@ 1223 1231 1266 1276 1294 1311 1330 1354 1370 1387 1406 1436 1452 1469 


3271 3273 3262 3397 3403 3405 3434 3534 3539 3541 3567 3608 3613 3615 3666 
3668 
1761 1778 1797 1621 1837 1654 1873 1912 1945 1979 2003 2063 2103 
2123 2148 2172 2192 2212 2238 2262 2302 2326 2350 2370 2390 2418 2449 
7 2476 2493 e518 2574 2597 2621 2657 2679 2703 2733 2755 2774 2617 
2635 2675 2912 33 29 7 2969 2990 3001 3017 
3077 3097 3115 3145 3155 3180 3189 3203 3233 3234 3241 3245 
3253 3271 3273 3261 3262 3396 3397 3403 3405 34 3533 3534 3539 
3341 3567 3607 3613 3615 3668 3671 3722 3724 3725 3749 3772 3775 2 
3825 3826 3853 3925 3939 3961 4024 4070 4100 4: 4193 4194 4196 
4211 4227 4239 4250 4284 4267 4292 4293 4300 4324 4327 4332 4335 
4336 4337 4339 4340 4345 4401 4425 4426 aata 444g 4445 4455 4457 4472 
$$GETT 1@ 2933 3233 3252 3262 3396 3533 3607 4193 4211 4425 
$$LPCN 1@ 3202 3667 3771 4263 4323 4331 
$$NEWT 1¢@ 611@ 1186 1250 1336 1413 1495 1566 1652 1726 1804 1887 1920 1953 19867 
2040 2220 2500 2606 2686 
$$POP 
$ $PUSH 
$$SELE 
$$SET 





ee ooo a mm ee = 8s | ee ee re 2 ee ee ee nl 


r4 FZ 





Nr a0... ——— 
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$$SET™ 11270 
$$SETS 1@ 1207 1208 1219 1260 1262 1272 1274 


D012 


ee —aEe an ree 


— — - 


a 


E13 
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CVOVAD.P11 12-JUL -84 O05: CROSS REFERENCE TABLE -- MACRO NAMES 
$SUPR 14 

$TRAP 1@ $098 

sTYPB 1¢@ 

$TYPOD 1@ 864954 

$TYPE 1@ 864561 

$TYPO 1@ 865021 

$40CA 1@ 

1170 1¢@ 








. ABS. 015406 000 


ERRORS DETECTED: 0O 


CVDVAD . CVDVAD/SOL /CRF =CVDVAD.SML .CVDVAD.MAC ,CVDVAD.P11 
RUN-TIME: 84 90 6 SECONDS 

RUN-TIME RATIO: 387/181"1. 5 

43K (865 PAGES) 


CORE USED: 





